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BATAILLE NAVALE 


Tora, Tora, Tora 





Grâce au programme Navale, vous allez pouvoir affiner 
vos qualités de stratège en affrontant votre ST dans 
une grande bataille navale. 





L a bataille navale est un jeu de société 
où s'affrontent deux joueurs, dispo- 
sant chacun d’une flotte de navires de guer- 
re. Ces derniers sont disposés sur une grille 
de 10x10 cases. Les flottes sont composées de 
4 sous-marins, de 3 torpilleurs, de 2 croi- 
seurs et d’un porte-avions. Plus le navire est 
grand, plus il occupe de cases. Un porte- 
avions occupe 4 cases, un croiseur 3 cases, 
un torpilleur occupe 2 cases et un sous-ma- 
rin qu’une seule case. Les navires peuvent 
être placés n'importe où sur l'écran, à condi- 
tion de respecter une distance d'au moins 
une case entre chaque bâtiment. Cette règle 
évite qu’un joueur ne se trompe sur la posi- 
tion d’un navire au cas où deux navires se- 
raient placés l’un contre l’autre. 
Le combat est une succession de tirs. Cha- 


que joueur sélectionne une case et tire des- 


sus. Si le tir ne touche aucun navire, l’autre 
joueur annonce «à l’eau». Dans le cas cont- 
raire, il annonce «touché» ou «coulé» si Le tir 
vient de détruire le dernier élément d’un na- 
vire. La bataille cesse lorsque l’une des 2 
flottes est totalement détruite. Une règle op- 
tionnelle que nous n’avons pas retenue est 
d'annoncer «en vue», lorsque l’un des tirs 
tombe à une case de distance d’un navire. 


Analyse du jeu 


Avant d'écrire un programme de jeu, il faut 
étudier en détail ce que le programme et le 
joueur doivent faire. Cet analyse définit le 
fonctionnement du programme, mais sur- 
tout les fonctionnalités que le logiciel appor- 
te au joueur. Cet analyse de fonctionnalité 
est indispensable pour définir l’interface uti- 
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lisateur. Les principales phases de jeu sont le 
positionnement de la flotte et le combat. 


Positionnement de 
la flotte par le joueur 


Pour que le joueur puisse placer ses navires 
où il veut, il faut une représentation ‘graphi- 
que de la grille de jeu et un système pour 
sélectionner et placer sur la grille un navire 
d’un type précis (voir tableau.1). 

Cette image vous montre l’aspect de l’inter- 
face utilisateur de positionnement de la flot- 
te. Pour placer un navire sur la grille, il suffit 
de cliquer sur une case. Les options SOUS- 
MARINS, TORPILLEURS, CROISEURS et POR- 
TE-AVION modifient le type de navire cou- 
rant. Des cases situées à droite de ces options 
contiennent le nombre de navires restant à 
placer. Au lancement du programme, le type 
de navire par défaut est le sous-marin. L’op- 
tion courante est affichée sur un fond de 
couleur rouge, alors que les autres options 
sont affichées avec un fond de couleur gris. 
La couleur rouge indique la notion d'énergie 
et d'activité, tandis que la couleur grise cor- 
respond à une non-activité. Grâce à ces cou- 
leurs, l'utilisateur doit comprendre intuitive- 
ment l’état de l'interface, sans avoir à faire 
un effort de réflexion consciente. 

Les navires peuvent êtres placés horizontale 
ment ou verticalement. Deux options situées 
en bas de l’écran permettent de préciser le 
sens de placement des navires. Par défaut, le 
sens est horizontal. L'option active est affi- 
chée sur un fond de couleur violet et l’op- 
tion inactive sur un fond de couleur jaune. 
Les couleurs choisies ne sont pas le rouge et 


TABLEAU 1 


le gris afin d'éviter toute confusion visuelle 
avec les options de sélection de navire. 
Quelques tests exécutés avec un premier pro- 
totype de l'interface ont montré qu’il fallait 
retirer un navire de la grille. La solution la 
plus pratique pour retirer un navire de la 
grille est de cliquer dessus. 

Lorsque le joueur a placé tous les navires de 
sa flotte, les options NAVIRE HORIZONTAL et 
NAVIRE VERTICAL disparaissent et sont rem- 
placées par une option CONTINUER LE JEU. 
Cette option indique au logiciel de passer à 
la phase de combat. Si le joueur retire un na- 
vire de la grille en cliquant dessus, cette op- 
tion disparaît et est remplacée à nouveau par 
les options NAVIRE VERTICAL et NAVIRE 
HORIZONTAL 


Fonctionnement interne 


Les problèmes qui se posent pour réaliser le 
module de placement des navires sont le sto- 
ckage en mémoire de la flotte du joueur, les 
tests de positionnement dés navires, l’enlève- 
ment d’un navire de la grille et la gestion de 
l'interface utilisateur. 

La présence de 4 types de navires complexi- 
fie considérablement la programmation. 
Pour la simplifier, au lieu d’utiliser des nu- 
méros pour désigner les navires (1,2,3,4), il 
est possible d'utiliser des constantes numé- 
riques. Comme ces dernières n’existent pas 
en GFA Basic, il faut les simuler en utilisant 
des variables dont le contenu est initialisé au 
début du programme et ne change pas lors 
de l’exécution. Ces constantes sont les varia- 
bles sous marin#, torpilleur“, croi- 
seur% et porte avion#, utilisées un peu 
partout dans le programme. C’est une tech- 


2 


pas de navire 
Sous-narin 


Torpilleur 


= Croiseur 
= Porte-avions 





nique que vous gagneriez à reprendre dans 
vos propres logiciels. Les 16 couleurs vidéo 
possèdent aussi leurs propres constantes nu- 
mériques. 


sous marin#=1 
torpilleur#=2 
croiseur#=3 
porte avionæ=4 


Les données de la grille du joueur sont mé- 
morisées dans le tableau grille jou 
eur%(). Les cases vides contiennent la valeur 
0 et les cases occupées par un navire contien- 
nent le numéro du navire. Le schéma suivant 
est un exemple d'utilisation du tableau: 

Le tableau navires disponibles#() con- 
tient le nombre de navires de chaque type 
restant à placer sur la grille. La variable 
type navire contient le numéro du type 
du navire courant. Son contenu est modifié 
par les options SOUS-MARINS, TORPILLEURS, 
CROISEURS et PORTE-AVION. 

La variable navire direction contient le 
sens de positionnement des navires (1=hori- 
zontal; 2=vertical). Son contenu peut être 
modifié par les options NAVIRE HORIZON- 
TAL et NAVIRE VERTICAL 


Test de positionnement 
des navires 


Selon leur taille, les navires occupent une zo- 
ne plus ou moins importante dans la grille. 
Pour qu’un navire puisse se trouver à un em- 
placement particulier, il faut que la zone 
correspondante ne contienne aucun navire, 
donc que toutes ces cases ne contiennent que 
la valeur 0. La fonction: 


@tst grille vide(1%,c%, ,nb_1%,nb_c#) 
vérifie que la zone de position (ligne 1%; 
colonne c%), mesurant nb_1% de haut et 
nb__c% de large est complètement vide. 
Avant de placer.un sous-marin à l’emplace- 
ment (5,7), il faut vérifier que la case (5,7) ne 
contienne pas d’autres navires. Comme au- 
cun navire ne peut se trouver dans les cases 
adjacentes à un autre navire, il faut égale- 
ment tester les 8 cases entourant la case (5,7). 
Ces deux opérations peuvent se faire en une 
seule fois en utilisant la fonction: 

@tst grille vide | 

sur la zone de position (4,6) et de taille (3,3). 
Le sous-marin est un cas simple, puisqu'il 
n’occupe qu’une case. La zone de test a 
toujours la dimension de 3 cases de haut et 
de large quel que que soit le sens d’orienta- 
tion des navires. Ce n'est pas le cas avec les 
autres types de navires. Il faut alors tenir 
compte du sens d'orientation de ces derniers 
pour calculer les dimensions de la zone de 
test. 

La fonction: 

@tst_stockage navire(1#,c%,n%) 

teste si un navire de type n% peut être stocké 
à partir de la case (1%,c%). Elle vérifie si le 
navire ne dépasse pas les limites de l'écran et 
si la zone de stockage est vide. Elle utilise la 
fonction taille navire pour connaître la 
taille du navire à tester, la variablé globale 
navire direction pour connaître le sens 
d'orientation des navires et la fonction 
@tst grille vide pour tester la zone de 
stockage. 

La procédure: 

@stockage navire(1%,c%,n%) 

stocke le navire n% à partir de la case 
(1%,c%). Elle consulte la variable navi- 
re direction pour connaître le sens d’o- 
rientation du navire. 

La procédure: 

@visualisation navire(1%,c%,n%) 
dessine la silhouette du navire n% sous la for- 
me d’un rectangle marron dont la taille 
dépend du type de navire. Les cotés'en bas et 
à droite du rectangle sont encadrés par une 
ligne noire produisant un effet de relief qui 
donne l'impression que les navires sont 
posés sur la grille. 


Enlèvement d’un navire 


La procédure: 

enleve navire(1%,c%,navire) 

efface le navire de type navire“ se trouvant 
à la position (1%,c%). Le processus'd’enlève- 
ment est un peu complexe, car On\ne con- 
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naît pas à priori le sens d'orientation du na- 
vire. La routine efface donc systématique- 
ment toutes les cases occupées dans les 4 di- 


rections autour de la case (1%,c%). L'efface- 
ment ne cesse que lorsque la routine tombe 
sur une case vide ou sur les bords de la grille. 
Cette technique possède l'avantage d'effacer 
un navire en sélectionnant n'importe quelle 
des cases qu’il occupe. Au fur et à mesure 
que la routine efface le stockage du navire en 
mémoire, elle utilise la procédure @effa- 
ce grille pour effacer le dessin du navire 
sur la grille. 


Gestion de 
l'interface utilisateur 


La routine @dessin_ecr_pos dessine l’écran 
de saisie de la flotte, avec le dessin de la grille 
et les différentes options. Elle utilise plu- 
sieurs sous-routines pour dessiner des élé- 
ments particuliers. La gestion de l'interface 
utilisateur est classique: le programme attend 
que l'utilisateur clique sur une position 
(x, y), teste si cette dernière correspond à la 
grille ou à une option et exécute la routine 
correspondante. La procédure @ges_crea- 
tion gère la totalité de la phase de création. 
Elle utilise la procédure 
@att clic pour attendre que 
l'utilisateur clique sur la souris. 
La procédure @test_ creation 
teste si la position de clic cor- 
respond à l’une des options ac- 
tives, ou à la grille. Elle renvoie 
un numéro d’identification. 

La procédure Gexec_creation 
exécute les routines correspon- 
dant aux options. 


La procédure @clic_ grille creation trai- 
te le clic sur la grille. Elle détermine la case 
cliquée, appelle la routine de création de na- 








vire si la case est vide ou la routine d’efface- 
ment de navire si la case est déjà occupée. 


Positionnement de la 
flotte par l'ordinateur 


La routine Gplacement flotte ordina- 
teur «fabrique» la flotte de l’ordinateur. Les 
navires sont stockés dans le tableau gril- 
le ordinateur%(). Le placement des na- 
vires se fait de la manière suivante: le pro- 
gramme détermine aléatoirement une posi- 
tion et une orientation. Si cette position ne 
convient pas, il calcule une nouvelle posi- 
tion. La fonction G@tst navire ordina- 
teur(1%,c%, 
et d'orientation d% peut être présent à la po- 
sition (1%,c#). La procédure @stocka- 
ge navire ordinateur(1%,c%,n%,d#) 

écrit le n% à la position (1%,c%), en tenant 


n%,d%) vérifie si un navire n% 


compte de son orientation d%, 


Contrairement aux navires du joueur, les na- 
vires de l'ordinateur possèdent chacun un 
numéro de référence (de 1 à 10). Le por- 
te-avions a le numéro 1. Les croiseurs ont les 
numéros 2 et 3. Les torpilleurs les numéros 
4,5 et 6. Les sous-marins portent les numé- 
ros 7,8,9 et 10. Cette mémorisation est in- 
dispensable car le joueur n’agit pas toujours 
de manière logique. Il peut, par exemple, en- ! 
dommager plusieurs navires sans les couler, ? 
afin de se réserver le plaisir de les détruire en : 
fin de jeu. C’est un cas rare, mais qui peut se : 
produire. Le programme doit donc stocker 
des informations précises sur l’état de cha- 
que navire et pour cela, donne un numéro : 
d'identification à chaque navire. Les navires - 
du joueur n’ont pas de numéro d’identifica- 
tion, mais uniquement un type de navire. - 
Cela vient du fait que lorsque ordinateur 
repère un navire, il s’acharne sur lui tant 
qu’il n'est pas coulé. Le programme se con- 
tente donc de ne stocker en mémoire que les 
données du navire courant. 

Il est plus facile de placer un sous-marin 
dans une grille encombré de gros navires, 
que de placer un porte-avions dans une grille 
occupé par des sous-marins et des navires de 
petites tailles. C’est pourquoi la routine de 
«fabrication» de la flotte place en premier le 
porte-avions, puis les croiseurs, les torpil- 
leurs et enfin les sous-marins, 


Phase de combat 


Le combat est une succession de tirs. Le 
joueur tire sur la flotte de l'ordinateur qui ri- 
poste en tirant sur les navires du joueur. 
L'écran de jeu contient le dessin de la flotte 
du joueur, une grille vide pour la flotte de 
l'ordinateur (les navires ne sont évidemment 
pas affichés), une option NOUVELLE PARTIE 
une option INFOS et une option QUITTER 
PROGRAMME La procédure @gestion_jeu 
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Y = Position du Sous-nmarin 







gère l'alternance des combats. L'affronte- 
ment ne cesse que si une des variables 
fin prg% joueur gagnant, ordina- 
teur_gagnant% ounouvelle partie pas- 
se à 1. Ces variables sont les conditions de 
sortie de la routine (voir tableau 2). 


Gestion des tirs 
du joueur 


Pour effectuer un tir, le joueur doit cliquer 
sur une case de la grille de l'ordinateur. Si 
cette case ne contient aucun navire, il s’y af- 
fiche une petite croix noire. Dans le cas 
contraire, le programme dessine un petit 
cercle rouge pour symboliser le fait que le 
navire soit touché Si le navire est complète- 
ment détruit, toutes ses cases sont recou- 
vertes par des croix rouges. 

La routine @gestion joueur s'occupe de 
gérer les actions du joueur. Celles-ci peuvent 
être le tir sur la flotte ennemi, mais aussi 
l'appel d’une des fonctions disponibles sur 
l'écran (INFOS, QUITTER PRG et NOUVELLE 
PARTIE). La routine est essentiellement une 
boucle qui s'exécute tant que le joueur ne ti- 
re pas sur la flotte ennemie, c’est-à-dire tant 
que la variable tir _ joueur“ contient la va- 
leur 0. Cette variable est un indicateur d’état. 
Le programme passe la plupart de son temps 
à attendre un clic souris. Si la position de 
clic correspond à une des options de l’écran 
de combat, il exécute la routine correspon- 
dante. 

La fonction @identif_zone(xm#,ym#) ren- 
voie le numéro de la zone écran correspon- 
dant à la position (xm%,ym%). La valeur 1 
correspond à un clic sur la grille de tir du 
joueur. 

La procédure @tir joueur(xm%,ym%) s'exé- 
cute lorsque le joueur clique sur la grille de 
tir du joueur. Les variables xm% et ym cor- 
respondent à la position de clic. La routine 
commence par déterminer la ligne et la co- 
lonne de la case cliquée grâce à la routine 
@identif_case tir, puis vérifie si cette ca- 
se est occupée par un navire. Cette opération 
se fait en lisant le contenu du tableau gril- 
le ordinateur%(). Si la case contient la va- 
leur 0, il n’y a pas de navire à cet endroit. Si 
c'est un nombre compris entre 1 et 10, c’est 
le numéro d’un bateau. Si c’est un nombre 
négatif, cela signifie que l’ordinateur a déjà 
tiré sur cette case. 


Le joueur tire dans l’eau 


Si le joueur ne touche aucun navire, le pro- 
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gramme affiche une petite croix noire à l’em- 
placement de la case. Le travail graphique est 
effectué par la routine: 

@aff crois vide(1%,c%). 

Le logiciel mémorise le fait que le joueur a 
tiré sur cette case en écrivant la valeur négati- 
ve -10 dans le tableau grille ordina- 
teur%(). La variable tir joueur“ est mise 
à 1 afin de signaler à la routine @ges- 
tion joueur que le joueur a effectué son tir 
et qu’il est temps que le programme tire sur 
la flotte du joueur. 


Le joueur touche 
un navire 


Si le joueur touche un navire, la variable na- 
vire contient le numéro du bâtiment et la 
variable type navire contient son type 
(sous__ marin, torpilleur, croiseur ou por- 
te__avion). Le programme traite cet événe- 
ment en faisant plusieurs choses. Il mémori- 
se le tir en écrivant un nombre négatif dans 
le tableau grille ordinateur#(), utilise la 
routine @aff_impact pour afficher un petit 
cercle rouge à l'emplacement de la case visée 
et incrémente le compteur d’impacts du na- 
vire. Celui-ci est stocké dans le tableau 
nb_impacts%() qui contient le nombre de 
tirs encaissés par chaque navire de la flotte 
de l’ordinateur. La position de la case est en- 
suite mémorisée avec la procédure @memori - 
sation impact(1%,c%). 

Cette dernière stocke la ligne et la colonne 
de la case dans le tableau pos impact#(). 
Ces données serviront ultérieurement lors- 
que le logiciel dessinera la forme du navire 
coulé. 

Une fois toutes ces opérations réalisées, le jeu 
de bataille navale vérifie si le tir qui vient 
d’être traité ne vient pas de couler le navire. 
Pour ce faire, il compare la longueur du bâti- 
ment avec le nombre de coups reçus. Si ces 
nombres sont les mêmes, le navire est coulé. 
La variable pertes ordinateur% est alors 
incrémentée d’une unité. Si 10 bâtiments ont 
été coulés, cela signifie que le joueur a anéan- 
ti la totalité de la flotte de l’ordinateur. La 
variable joueur gagnant* est mise à 1. Les 
navires coulés doivent être représentés gra- 
phiquement. C’est la tâche de la fonction 
@aff_ navire coule(navire#) qui affiche 
des grandes croix rouges sur les cases du na- 
vire navire%. Ces cases ont été préalable- 
ment mémorisées dans le tableau pos _im- 
pact%() par la routine @memorisation im- 
pact(1%,c%). Une fois le traitement du tir 
effectué, la variable tir_joueur% est mise à 


1 afin de signaler que le joueur vient de 
jouer et que le programme peut jouer à son 
tour. 


Gestion destirs 
de l'ordinateur 


La routine @gestion_ordinateur gère le tir 
de l’ordinateur contre la flotte du joueur. 
Deux états sont possibles: aucun navire n’est 
repéré et le tir se fait au hasard, ou un navire 
est repéré et le tir se fait méthodiquement 
pour achever le bâtiment. L'état courant du 
tir est mémorisé dans la variable navi- 
re en vue. Si un navire est repéré, cette va- 
riable contient 1. Dans le cas contraire, elle 
contient 0. Cette routine est essentiellement 
un aiguillage entre les procédures gérant les 
cas de tirs possibles. 


Mémorisation 
des tirs de l'ordinateur 


Comme nous l'avons vu plus haut, les na- 
vires du joueur sont stockés dans le tableau 
grille joueur%() et les navires de l’ordi- 
nateur dans le tableau grille ordina- 
teur%(). Afin de ne pas tirer sur une case 
déjà visée, l'ordinateur doit garder une trace 
de ses tirs. C’est la tâche du tableau tir_or- 
dinateur#(). Lorsque le programme tire 
sur une case, il écrit la valeur 1-danstir or- 
dinateur“(). 


Tir aléatoire 


La routine @tir aleatoire gère le tir de 
l'ordinateur lorsque aucun navire n’est repé- 
ré. Les tirs se font alors au hasard, dans l’es- 
poir d’endommager ou de couler les bâti- 
ments du joueur. Cette routine utilise une 
boucle DO-LOOP afin de déterminer une case 
où aucun tir n’a été effectué. La recherche se 
fait en calculant aléatoirement des positions 
et en utilisant le tableau tir ordina- 
teur%() pour vérifier si un tir a déjà été ef- 
fectué sur cette case. Une fois la case choisie, 
le programme lit son contenu dans le ta- 
bleau grille joueur#() -contenant la flot- 
te du joueur- et teste sa valeur. Le traitement 
suivant dépend du chiffre lu. 


Tir aléatoire raté 


Si la case de tir contient 0, il n’y a aucun na- 
vire à cet endroit. Le programme visualise 
l'échec en affichant un petit cercle bleu à 
l'emplacement de la case. Il] modifie ensuite 
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Je tableau tir ordinateur#() pour ne plus 
tirer à cet endroit. 


Traitement de 
l'impact sur 
un sous-marin 


Le cas où la case de tir con- 
tient le numéro d’un sous- 
marin est simple à gérer 
puisque ce type de navire 
n'occupe qu'une case et 
coule au moment même où 
il est touché. 

Le programme incrémente 
la variable pertes joueur“ et utilise la 
procédure @impact_joueur pour représen- 
ter visuellement la perte du navire en affi- 
chant une grande croix rouge à l’emplace- 
ment de la case de tir. Nous avons vu plus 
haut qu’il était impossible qu’un navire en 
touché un autre. Il ne peut donc avoir de na- 
vires dans les 8 cases adjacentes au sous-ma- 
rin. En marquant ces 8 cases, on évite que 
l'ordinateur ne tire dessus inutilement. 

La routine @marquage sous marin(1%,c) 
marque les 8 cases entourant la case (1%,c%) 
comme étant déjà testées. Elle est écrite de 
manière à marquer même les cases qui se 
trouvent au bord de la grille (voir tableau 3). 






Traitement de 
l'impact sur un navire 


Lorsque l'ordinateur touche un navire com- 
posé d’au moins deux cases (torpilleur, croi- 
seur ou porte-avions), il effectue les traite- 
ments graphiques habituels, stocke la posi- 
tion de tir dans les variables 1_cible% et 
c_cible% et mémorise le fait qu’un navire 
ennemi soit touché en écrivant le type de na- 
vire dans la variable navire en vue“. La va- 
leur de cette variable détermine la stratégie 
de tir du programme. La valeur © signifie 
qu'aucun navire du joueur n'est touché et 
qu’il faut tirer au hasard sur les cases non ex- 
plorées. Tandis qu’une valeur différente de O 
implique qu’un navire ennemi est touché et 
qu'il faut donc lui tirer dessus. La discrimi- 
nation entre ces deux stratégies s'effectue à 
l’aide de la procédure @gestion ordina- 
teur. 


Tir sur un navire repéré 


La routine @tir_sur navire s'occupe de ti- 
rer sur les navires du joueur ayant été repé- 
rés à la suite d’un tir au hasard. C’est l’une 
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des tâches les plus complexes du jeu, car il 
faut d’abord déterminer la direction du navi- 
re (horizontal ou vertical) pour le détruire 
totalement. Le programme détermine aléa- 
toirement une direction de tir avec la pro- 
cédure @new_direction_tir, direction mé- 
morisée dans la variable cible direction“. 
Les procédures @tir gauche, @tir droit, 
@tir haut et @tir bas gèrent chacune de 
ses directions de tirs. Lorsque le navire est 
coulé, c’est-à-dire lorsque les dommages qu’il 
a encaissés ont la même valeur que son nom- 
bre de cases, la valeur 0 est écrite dans la-va- 
riable navire en vue. Le logiciel sait alors 
qu’il va devoir recommencer à tirer au ha- 
sard, dans l’espoir de toucher d’autre navire. 


TABLEAU 3 


Position du Sous-narin 


, = Cases où il ne peut 
y avoir de navires 










Amélioration du 
programme 


Le programme de bataille navale tel qu’il est 
actuellement est une version minimale. Vous 
pouvez considérablement l'améliorer. Des 
effets sonores peuvent signaler au joueur 
qu’un navire est touché ou qu’il coule. Au 
lieu de prendre des carrés de couleur pour 
représenter les navires, vous pouvez utiliser 
des silhouettes de bateau. 


Le listing du programme est disponiblé en 
téléchargement, mais aussi sur la disquette 
fournie avec ce numéro d'Atari Magazine. 

Patrick Leclercq " # 





Téléchargez 
les listings du 
magazine 
sur le 


3615 ATARI 
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LOAKKAKKKARAAEREREEXEKERRERERREEEÉ 


* * BATAILLE NAVALE . 
l'OKKKKKAKEARKAKELRKREREREXKARARREREEX 
"x (C) 1992 PATRICK LECLERCQ * 
* x (C) 1992 ARTIPRESSE ; 


l OKKKKKKKKKXKKKKRERERARAAXERREERRARE 


! * Ecrit en GFA BASIC 3.xx  * 
LOKKKKKKEKREKRARKRAREERRREAREARKREAREX 
RESERVE 100000 

OPTION BASE 1 

DIM grille joueur%(10,10) 

DIM grille ordinateur*(10,10) 

DIM tir ordinateur%(10,10) 


1 

1 KKKKKKKKEAKERAKRAKKKERKERERERRRKRRRRKREARERREREE 
! # CONSTANTES POUR LES TYPES DE NAVIRES * 
L OKAKKKEKKEKRERERRRRRRRRARARRRRRRRRERRRERRRAÉR 
sous marin#=1 

torpi l leur%=2 

croiseur#=3 

porte avions=4 


L 
LOKAKKKKKKKKEKEREREERREREERREREREE 


" * NB DE NAVIRES DISPONIBLES * 


LOAKAKAKKKAKREKRKRERERKKRREEEEREREREEX 
DIM navires disponibles#(4) 
L 


LOKKKAKAAKRRRRERREEERRERERERRRERERERRRARRRRRRAÉÉ 


" *  TABLEAU CONTENANT LE NB DE COUPS SUBIS * 
" * PAR LES NAVIRES DE L'ORDINATEUR E: 


D UORKR RAR AK RKOK KORHMR HO RAR ROM HE HR ROM RO ROR RO RRORRAR 


DIM nb_impacts#(10) 


LOKKKKARAKAEARKRRKRRARRREXERAREEREARRREREERRERERÉRARER 


TABLEAU CONTENANT LES POSITIONS DES NAVIRES 
DE L'ORDINATEUR TOUCHE PAR LE JOUEUR 
pos_impact%(n,i,p) 

n = numéro de navire (1 à 10) 

i = numéro impact (1 à 4) 

p = ligne ou colonne (1=ligne; 2=colonne) 


L'OKKKKKKEAKAAARERAKRRRREKRERARRERRERRÉEERREEREREREREEREE 


DIM pos _impact+(10,4,2) 
L 


Æ + AL NX + 
Æ € + * + » 


LOKKKKKAKAKERARERRERRRRAKRRRRARÉÉERÉRERRREX 


! %  MEMORISATION DES DIRECTIONS DE TIR * 
! #  DEJA UTILISEES PAR LE PROGRAMME L 
LOKKKKKKKKKKEXKRRARERRRRRRARERAERERRAARRRÉ 
DIM test direction tir%(4) 


lOAKKKKAKAKAKKRRKRKEREREREEREREKRERERERKRRERRRE 


" *#  MEMORISATION DES POSITIONS DU NAVIRE * 
 # TOUCHE PAR LE PROGRAMME $ 
LOXKKKRKKEKAKARARRARERAKRARANEREREREREREREARE 
DIM pos navire en vue%(4,2) 

Emain 


END 


LOKXKKRKKKRERAAKRERRRRAREAEAREERERÉRENEEE 


tx * 
 * FONCTIONS GRAPHIQUES DE BASE * 
(126 à * 


1 KKKKKKKKERRARRARRARERRRÉRREEERLERERER 

1 KKKAKEKARAARERERKRERRERARRÉERERARRRRÉÉE 

! * AFFICHAGE D'UN RECTANGLE PLEIN * 

: KKKAKRRRAAKERERRERLERERERRRERÉRÉELREÉ 

PROCEDURE rect(px%,py%,tx%, ty#,c%) 
LOCAL px2%, py2% 


! CALCUL POS X EXTREME RECT 
py2%=py%+ty-1 ! CALCUL POS Y EXTREME RECT 
DEFFILL c#% ! DEFINITION COULEUR DU FOND 
PBOX px%,py%,px2%,py2% ! TRACE COULEUR DE FOND 

RETURN 


px2%=px%+tx-1 


LOKKKKKARKRRERRARKKERERARREERERÉERÉE 


! * AFFICHAGE D'UN CADRE VIDE * 
D OKXKKKKKKKAKRARKRKRKREKARRKEREREREUE 
PROCEDURE cadre(px%,py%,tx%,ty%,c%) 
LOCAL px2%,py2% 
L 


! CALCUL POS X EXTREME RECT 
py2%=py#+ty#-1 ! CALCUL POS YŸ EXTREME RECT 
COLOR c% ! DEFINITION COULEUR DU FOND 
BOX px%,py%,px2%,py2% ! TRACE COULEUR DE FOND 

RETURN 


px2%=pxé+txe-1l 


LOKXKKKKKKKKRERARRRRRERERRERERRRRAARE 


" * AFFICHAGE D'UNE BOITE VIDE * 

D OXKXKKKKKKKKKKKERRRRRERERERREERERÉEÉ 

PROCEDURE boite(px%,py#,tx%, ty%,fond%,contour%) 
LOCAL px?2%,py2% 
L 


| CALCUL POS X EXTREME CADRE 
py2%=py#+ty#-1 ! CALCUL POS Y EXTREME CADRE 
DEFFILL fond% ! DEFINITION COULEUR DU FOND 
PBOX px%,py%,px2%,py2% ! TRACE CADRE DE FOND 
COLOR contour ! DEFINITION COULEUR CONTOUR 
BOX px%,py%,px2%,py2%  ! TRACE DU CONTOUR 

RETURN 

L 


px2%=px#+tx%—1l 


1 OKKKKKKRKRKRERRKEREAAAKARERERERAEARERERRERRERERARARAAAAEX 


" * AFFICHAGE D'UN CADRE DE SELECTION AVEC MESSAGE * 
LOKXKKKKKKEAKKKKEKEKRAARARERRRRRARERRRREAREEEEREKERERKEXEEXR 
PROCEDURE option(px%,py#,tx#,ty%,f%,c%,m$) 

LOCAL xm%,ym% 


xme=px%+(tx#-(LEN(m$)*8))/2  ‘! CALCUL POSITION X 
MESSAGE 

ymés=py#+7+ (ty#-8)/2 

DEFTEXT noir 
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@boite(px%,py%,tx%,ty#%,f%,c%) ! TRACE DU CADRE 
TEXT xm%,ym%,m$ ! AFFICHAGE DU MESSAGE 
RETURN 


' 
LL 'RKKRRARRERERRERAREREERERERERÉRRE 
! x ATTENTE PAS DE CLIC SOURIS * 
IMPTTIZTIILILILLLILILLILLÉLLLESLSLSSLESESS TS) 
PROCEDURE attOclic 
DO 

EXIT 1F MOUSEK=0 
LOOP 
RETURN 


V 


1 KXKKKKKAKKKKEKRERERERERRRRRRRRERE 


! # ATTENTE D'UN CLIC SOURIS * 
LU KAKKKKKKKERERERRRRRRRRRRRRRRRÉ 
> PROCEDURE wait clic 
@attOclic 
DO 
EXIT IF MOUSEK<>0 is 
LOOP 
@attOclic 
RETURN 


L'OKKKKKRARKRAKRRARERERARERERERIRARE 


! * ATTENTE CLIC SOURIS ” 
! * AVEC LECTURE ETAT SOURIS * 
L'ORKAKKERKEERERAR ER RIM RÉ RARIRARE 
PROCEDURE att_clic(VAR xm%,ym%, km) 
DO 
MOUSE xm%,ym%, km% 
EXIT IF km%<>0 
LOOP 
RETURN 


LD OKXRRKKARRKRRERRERRERERERERERERKRRRRRRERRRRKRÉE 
! x TEST SI CLIC SUR UNE ZONE GRAPHIQUE * 
DL 'KAKRKKKRARAKKREREREKRRKRKERERERRRRRRRREREREREÉ 
> FUNCTION tstzone(xm%,ym#,px%,py%, tx%, ty%) 
LOCAL px2%,py2%,rep# 

L 


rep#=0 

px2%=px+tx%-]l 

pY2#=py#+ty-1 

IF (xm%>=px%) AND (xm%<=px2%) 
IF (yme>=py#) AND (ym%<=py2%) 

rep#=1 

ENDIF 

ENDIF 

RETURN rep% 

ENDFUNC 


D OKKKKKKREKRKRRRRREKRERRAREREREREERRERERERRERERARRE 


tx * 


" # DESSIN DES ELEMENTS GRAPHIQUES DU JEU * 


1 + * 
LV OKAKKKRKERRRERERRRRRERRAARERERERERERERERÉERÉRARÉÉ 
LORKKKKKEKREKRRERRRRRRRRERRRRREREREE 

! % DESSIN D'UNE GRILLE DE JEU * 
LOKXAKKAKAKKRKKKRRRERERRERKRERERRERÉÉ 

> PROCEDURE dessin grille(px%,py#) 

LOCAL ligne%,colonne* 

LOCAL xligne%,yligne* 

LOCAL xligne2%,yligne2% 


D OKKKRKAKKRERRERRRRRERRRRARE 


" x  REMPLISSAGE DU FOND * 


LOKKAKKKKKEAKERKERKERRERKRRÉREE 


@rect(px%,py%,tx case%*10,ty case%*10,bleu) 


LOKKKKKKAKKKERKRKRRRREREREX 


! x LIGNES VERTICALES * 
LOKXKKKKKKKERÉREÉRRERÉRRRRRX 
xligne%=px# 
yligne%=py# 
xligne2%=xlignes+(tx_case#*10)-1 
FOR ligne%=1 TO 11 
COLOR noir 
LINE xligne%,yligne%,xligne2%,yligne 
ADD yligne%,ty_case* 
NEXT ligne% 


L 
LOKXKKKKKEKKEERERERRRRRRRRRE 
! * LIGNES HORIZONTALES * 
D OKKKKKKKKKRKRRERRRRRRRRRARÉ 
xligne#=px# 
yligne*=py# 
yligne2%=yligne%+(ty_case#*10)-1 
FOR colonne#=1 TO 11 
COLOR noir 
LINE xligne%,yligne%,xligne%,yligne2% 
ADD xligne%,tx case* 
NEXT colonnes 
RETURN 


LV OKAKKKKKKEKEKRERERAREREREARAARERE 


! x  EFFACEMENT D'UNE CASE À 
! * DE LA GRILLE DE CREATION * 
DO KKKKKKEKEKERERERERRRKRERRREREREEE 
> PROCEDURE efface case(1%,c#) 
LOCAL px%,py*% 


px#=(c#-1)*tx case#+8 

py%=(1%-1) *ty_case#+51 
@boite(px%,py%,tx case%+l,ty case%+1,bleu,noir) 
RETURN 


1 
1 OKKKKKRRRKRÉKKRRERERERERRERERERRARERRAEARAX 


! * AFFICHAGE DU TYPE DE NAVIRE COURANT * 


LORKRkRKAKRRARERKERRERERERERERAREARRARRARRAREE 


OI D ED 2 OR RO 
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* 


> PROCEDURE affiche type navire(navire“) 
HIDEM 
IF type navire#<>0 
SELECT type navire 
CASE sous marins 
@aff option(sous marin%,gris) 
CASE torpilleur* 
Qaff option(torpilleur%,gris) 
CASE croiseur“ 
@aff option(croiseur#,gris) 
CASE porte avions 
@aff_option(porte avion%,gris) 
ENDSELECT 
ENDIF 
SELECT navire* 
CASE sous marin 
@aff_option(sous marin%, rouge) 
CASE torpilleur“ 
@aff_option(torpilleur%, rouge) 
CASE croiseur“ 
@aff option(croiseur#, rouge) 
CASE porte avion“ 
Gaff_option(porte avion, rouge) 
ENDSELECT 
SHOWM 
RETURN 


' 
LOKKAKKKKRRKRKRERERERERRKKERERERERRRÉRÉERRRARURE 
" * AFFICHAGE DU NB DE NAVIRES DISPONIBLES * 
LOKKKKKKKRAKKRAKRARERRERÉRERREREERERRÉRRRRRÉRÉRÉÉ 
> PROCEDURE aff _ navires disponibles (n#) 

LOCAL px%,py%,m$ 


m$=STR$(navires disponibles%(n%)) 
SELECT n% 
CASE sous marin# 

px%=288 

py#=52 
CASE torpilleur% 

px%=288 

py%=76 
CASE croiseur 

px%=288 

py#=99 
CASE porte avion% 

px#=288 

py#=123 
ENDSELECT 
Goption(px#,py#,24,13,gris,noir,m$) 
RETURN 


D OKKKAKRAKRAKRRARRRERERRRRRÉERERERÉE 


 * AFFICHAGE DIRECTION NAVIRE * 


LOXKKKKKKKKKKRRRRRARRKEREREEKREREREX 


> PROCEDURE aff direction navire 


IF navire direction*=1 
="NAVIRE HORIZONTAL" 
Boption(136,147,176,13,violet,noir,mÿ$) 
m$="NAVIRE VERTICAL" 
@option(136,159,176,13,jaune,noir,m$) 
ELSE 
m$="NAVIRE HORIZONTAL" 
@option(136,147,176,13,jaune,noir,m$) 
m$="NAVIRE VERTICAL" 
@option(136,159,176,13,violet,noir,m$) 
ENDIF 
RETURN 


D ORRKRKKAAKKRKRAARARRRERRRRR RAR RRRERÉRRHE 


‘ * AFFICHAGE OPTION "COMMENCER JEU" * 
LD ORKRREKKRERRRRRRERRRRERREREREREEKRARERÉERE 
> PROCEDURE aff_flotte ok 

LOCAL m$ 


@boite(136,147,176,25,violet noir) 
m$="COMMENCER JEU" 
@option(137,153,174,13,violet,violet,m$) 
RETURN 


D OKAKRKAKRKRARRRREREREEREERAREREERERERERÉRE 


! * AFFICHAGE DES SELECTEURS D'OPTIONS * 

D OKKAKRKRRERERRRRERERERERERKERRERRRÉRÉRARA RE 

© * n$: type d'option 8 

 * c%: couleur de fond du texte 3 

D ORAKKRKKRRRRKRRNERERERARRRRRRERERRRERRRRRARÉ 

> PROCEDURE aff_option(n%,c%) 

SELECT n% 5 

CASE sous marin“ 
Coption(136,52,144,13,c%,noir, "SOUS-MARINS") 

CASE torpilleur“ 
@option(136,76,144,13,c%,noir, "TORPILLEURS") 

CASE croiseur“ 
@option(136,99,144,13,c%,noir, "CROISEURS") 

CASE porte avion“ 
Goption(136,123,144,13,c%,noir,"PORTE-AVIONS") 

ENDSELECT 

RETÜRN 


LORKKRAKERRRRRREERERERERRARRRRRRÉ 


" #  ECRAN DE POSITIONNEMENT * 

" # DE LA FLOTTE DU JOUEUR  * 

D OKXKRARKRERKKRERRERRREERKRRERRREREEARE 

> PROCEDURE dessin _ecr pos 

LOCAL m$ | 

DEFLINE ,1 

@rect(0,0,320,200,blanc) 
@option(8,28,120,13,vert,noir, "FLOTTE JOUEUR") 
@dessin grille(8,51) 

m$="NAVIRES DISPONIBLES" 


EE 
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RES 











SE 





@option(136,28,176,13,vert,noir,m$) 
@aff_option(sous marin#, rouge) 

@aff navires disponibles(sous marin) 
@aff_option(torpilleur#,gris) 

@aff navires disponibles (torpi fleur) 
@aff option(croiseur#,gris) 

@aff navires disponibles(croiseur“) 
@aff option(porte avion%,gris) 

@aff navires disponibles(porte_ avion“) 
@aff direction navire 

RETURN 


L'OKAKKKAKARRRRRRRARERERERRERERERRRARARAAAREREREER 


1 # TEST SI UNE ZONE DE LA GRILLE DE CREATION * 
DREMEST VIDE: % 
LOXKRKRERERERÉRRRRRRRRERKRERRERRRERERRRRRRRERRRRRÉE 
Lx 1%,c%: position de la zone à tester 
! # nb 1%,nb c%: dimension de la zone Ê 
DL OKKKKRRERRRRERRRRÉRRRREARRERRERRRERRRARRARRARRRARÉ 
> FUNCTION tst grille vide(1%,c%,nb_1%,nb_c*ÿ 
LOCAL 10%,c0%,rep# 
1! 
rep#=TRUE 
FOR 10%=1% TO 1#%+nb_1%-1 
FOR cO%=c# TO c#+nb c#-1 

IF (c0%>0) AND (c0%<11) AND (10%>0) AND (10%<11) 

IF grille joueur%(10%,c0%)<>0 
rep#=FALSE 
ENDIF 

ENDIF 
NEXT c0% 
NEXT 10% 
L 


RETURN rep 
ENDFUNC 


LOKAKKKKEKKRRRRERRRRRRERKERRRRRRRRREAREERE 


! * IDENTIFICATION DE LA CASE x 
! *  SELECTIONNEE PAR LE JOUEUR * 
! *  VALABLE UNIQUEMENT POUR LA x 


® * GRILLE DE CREATION DE LA FLOTTE * 
LOKRKKKRERRRRRRRRRKAKRKRERERERRRRRRERRERERE 

> PROCEDURE identif case creation(xm%,ym%, VAR 1%,c%) 
LOCAL px%,py# 


px=xm#—8 
py#=ym-51 
1%=(py%/ty_case%)+1 
ce=(px%/tx_case*)+1 
RETURN 


LOHAKAKRARAARRRRRRRREREXERRRRRARRRAREARAAARÉEX 


! # LECTURE DU TYPE DE NAVIRE SITUE DANS * 
! * UNE CASE DE LA GRILLE DE CREATION \2 


L'OHRKKKRÉRRARRRRÉRERERERRERERRRRRARARKARERRÉ 


FUNCTION lec case(1%,c#) 
RETURN grille joueur%(1%,c#) 
ENDFUNC 


LL OXKKKKKERARRKRRARERRKREERERRRRERERAAREXAARAREE 


! * DETERMINATION DE LA TAILLE D'UN NAVIRE * 
DL OHKKRARRRARRERRAEEKEERERRERRARARARERRAREARERERARE 
> FUNCTION taille navire(n%) 

LOCAL taille 

L 

SELECT n% 

CASE sous marin“ 

taille*=1 

CASE torpilleur“ 

taille%=2 

CASE croiseur“ 

taille#=3 

CASE porte avion“ 

taille%=4 

ENDSELECT 

RETURN taille 

ENDFUNC 


V1 ORKRAKRRRRRERKRARRERERRERRRRRRRARERAR 


! * TEST SI UN NAVIRE PEUT ETRE  * 

‘ * STOCKE DANS UNE CASE PRECISE * 
LORRRRRERKEEKRERERERRRRERRRRÉRRARERREHREÉR 

> FUNCTION tst stockage navire(1#,c#,n%) 
LOCAL rep#,taille* 


rep#%=TRUE 
taille%=@taille navire(n) 
D OKXXKAKRKRRRRRARREREARRERREE 


! * NAVIRE HORIZONTAL * 
LOKAKKKRRRERRRRERRERRERRÉÉ 

IF navire directions=1 

IF c#>(11-taille) ! TEST SI DEPASSEMENT GRILLE 
rep%=FALSE 

ENDIF 

! x TEST SI NAVIRE DANS CASES ADJACENTES * 

IF NOT (@tst grille vide(1#%-1,c%-1,3,taille#+2)) 
rep#=FALSE 

ENDIF 

ELSE 


LOKXRKRRKRKRRKKKRKRREKRÉEEÉR 


! * NAVIRE VERTICAL * 

L OHARKKRRARKKRKEKREKRERERRÉ 

IF 1%>(11-taille%) ! TEST SI DEPASSEMENT GRILLE 
rep%=FALSE 

ENDIF 

! x TEST SI NAVIRE DANS CASES ADJACENTES * 

IF NOT (@tst_ grille vide(1#%-1,c%-1,tail1e%+2,3)) 
rep#=FALSE 

ENDIF 

ENDIF 


oo 


SUPPLEMENT ATARI MAGAZINE N°37- SEPTENBRE 1992 


De 





oo 


RETURN rep 
ENDFUNC 


D RARRRAR ARE RRER RER RAR RAR RUE 
1 x STOCKAGE D'UN NAVIRE EN MEMOIRE * 
D RAR ARR IERRRR IERRR ARRRRORR RIIRRCE 


1 + 1]%,c%: position du navire % 


D'EAU ne type de navire 
VU HKKREKERRRRERERRERARREARRARERRRREERERREE 

> PROCEDURE stockage navire(1%,c#,n%) 

LOCAL 10%,c0%,taille* 

U 

taille*=@taille navire(n#) 

IF navire direction#=1 ! NAVIRE HORIZONTAL 
FOR c0%=c% TO cxttailles-1 

grille joueur%(1%,c0%)=n% 

NEXT c0% 

ELSE | NAVIRE VERTICAL 
FOR 10%=1% TO 1#%+taille%-1 

grille joueur%(10%,c%)=n# 

NEXT 10% 

ENDIF 

RETURN 


* 


1 OKAKKAKRARARARAARARRAREARERARERERRARRERERRRRERAR 


! #  VISUALISATION DU STOCKAGE D'UN NAVIRE * 
LOKAKAKKKRRKREARRARKRERERERRERERERRRRERRRRRARRARÉ 
> PROCEDURE visualisation navire(1#,c%,n%) 
LOCAL px%,py%,taille* 


taille%-@taille navire(n%) 

px#=(c#-1)*tx case%+8 

py%=(1%-1)*ty_case%+51 

IF navire direction#=1 

! * NAVIRE HORIZONTAL * 
@boite(px%,py%,tailles*tx case%,ty case%,marron,noir) 
ELSE 

" * NAVIRE VERTICAL * 

@boite(px%,py%,tx case%,taille**ty case#,marron,noir) 
ENDIF 

RETURN 

l 


LOKRAKKRKKKERRRRRRRRAARARARRARERERRERERERRERARE 


! # TEST SI LA FLOTTE DU JOUEUR EST PRETE * 
D ARR HR RER HER HORREUR IR AIO 
> FUNCTION tst_ flotte 

LOCAL n% 

l 


n#=navires_disponibles#(sous marin“) 

ADD n%,navires disponibles#(torpilleurx) 
ADD n%,navires disponibles#(croiseur“) 
ADD n%,navires disponibles*(porte avion) 
IF n%=0 

RETURN TRUE 


ELSE 

RETURN FALSE 
ENDIF 
ENDFUNC 


LOKAKKKKKKKKKERRRKRRARREERKKRERARARERRRRAREE 
* * SELECTION ET CREATION D'UN NAVIRE * 
D OKKKKKKKKKAKRERKAKRARRERRERRERRERERARERREREEREE 
> PROCEDURE creation navire(1%,c%,n%) 

IF navires disponibles#(n%)<>0 

IF @tst_ stockage navire(1%,c%,n%) 

HIDEM 

@visualisation navire(1#,c#,n%) 

@stockage navire(1%,c#%,n%) 

DEC navires disponibles#(n#) 

@aff navires disponibles (n%) 

! x TEST SI LA FLOTTE EST COMPLETE 

IF @tst flotte 

Qaff_ flotte ok 

ENDIF 

SHOWM 

ENDIF 

ENDIF 

RETURN 


LOKKRAKRKARKKRARRRAREARKERERRRRREREREXE 


! * EFFACEMENT D'UN NAVIRE x 
© * SUR LA GRILLE DE CREATION * 


LOKAAKKKKAKARERRRRRERRERRERRERRRERE ER 


V 


PROCEDURE enleve navire(1%,c#,navire#) 
LOCAL 10%,c0% 


INC navires disponibles#(navi re“) 
HIDEM 

IF navire“<>type navires 
@affiche type navire(navire#) 
ENDIF 

@aff navires disponibles (navire#) 
type navire#=navires 

! * EFFACEMENT DU NAVIRE * 
grille joueur#(1%,c%)=0 

@efface case(1%,c%) 

! *  EFFACEMENT VERS LA GAUCHE * 
cO%=c# 

DO 

DEC c0% 

EXIT IF c0%=0 

EXIT IF grille joueur(1%,c0%)=0 
grille joueur#(1%,c0%) =0 

@efface case(1%,c0%) 

LOOP 

! *  EFFACEMENT VERS LA DROITE * 
cO%=c% 

DO 

INC c0% 


EP PL I EE 
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EXIT IF c0%=11 

EXIT IF grille joueur#(1%,c0%)=0 
grille joueur%(1%,c0%)=0 

@efface case(1%,c0%) 

LOOP , 
! x EFFACEMENT VERS LE HAUT # 
10%=-1% 

DO 

DEC 10% 

EXIT IF 10%=0 

EXIT IF grille joueur%(10%, c#)=0 
grille joueur%(10%,c#)=0 

Gefface case(10%,c%) 


LOOP 

! x EFFACEMENT VERS LE BAS x 

10%=1% 

DO 

INC 10% 

EXIT IF 10%=11 

EXIT IF grille joueur%(10%,c*)=0 » 


grille joueur%(10%,c#)=0 

@efface case(10%,c%) 

LOOP 

1 x TEST SI L'OPTION "COMMENCER JEU" EXISTE 
1! x IL FAUT L'ENLEVER DE L'ECRAN 
IF @tst_flotte=FALSE 

@aff direction navire 

ENDIF 

SHOWM 

RETURN 

' 


1 OKKKKKKERERRXKAKEÉEERRRARRERE 


‘x TRAITEMENT CLIC SUR  * 

‘ * LA GRILLE DE CREATION * 
LOXAKKKKRERRRRRRRRKRERERERRRAREE 

> PROCEDURE clic grille creation(xm%, ym*) 
LOCAL 1%,c#%,navire* 

L 

@identif case creation(xm,ym%, 1%, C#) 
navire#=@lec case(1%,c#) 

IF navire%=0 ! PAS DE NAVIRE 

@creation navire(1%,c%, type navire“) 


ELSE | PRESENCE D'UN NAVIRE A ENLEVER 
G@enleve navire(1%,c%,navire“) 

ENDIF 

RETURN 


1 

D OXKKKKKKRERERRRRRÉRRRÉRRRRRÉRRERRRE 
! x CLIC SUR NAVIRE HORIZONTAL * 
LOKAKKAERERRARÉARERERRRERÉERREREAR 
> PROCEDURE clic_navire_ horizontal 
IF navire direction#=2 

navire direction#=1 

HIDEM 

@aff direction navire 


SHOWM 
ENDIF 
RETURN 


1 

D OXRKRKERRREREEKERERERARRRERÉREÉR 
! *x CLIC SUR NAVIRE VERTICAL * 
D OKXAKKKRRRÉERKERERERRRRREAEERERAX 
> PROCEDURE clic navire vertical 
IF navire direction#=1 

navire direction#=2 

HIDEM 

@aff direction navire 

SHOWM 

ENDIF 

RETURN 


IP TTTTILTISLLIILLILLELESLELSSSS ST SES SES SS S 


! x CLIC SUR UNE OPTION DE SELECTION * 
1 x D'UN TYPE DE NAVIRE É 
DL ORKKKRKEKRERERRERRRERRRERERERÉERARAR ARE 
> PROCEDURE clic select_navire(n#) 

IF type navire%<>n% 
@affiche type navire(n*) 

type navire=n% 

ENDIF 

RETURN 


1 

DORA RRORROR RORURRROR ARRET ROR OR RO RR AR RANK 
! x EXECUTION DES COMMANDES DE CREATION  * 
IPT TT TTL LLLLILLLLLILI ES SSI ELSSLÉESEEES. SSL.) 
> PROCEDURE exec_creation(n*) 

SELECT n% 

CASE 3 

@clic select navire(sous marin“) 

CASE 4 

@clic select _navire(torpilleur“) 

CASE 5 

@clic select navire(croiseur“) 

CASE 6 

@clic select navire(porte avion“) 

CASE 7 

@clic navire horizontal 

CASE 8 

@clic navire vertical 

ENDSELECT 

RETURN 


s 
D OHRRKKREREERRRARRERERRRRRRRERERÉRERRARERERRER 


! x TEST SI CLIC SUR UNE FONCTION DU MENU * 
‘ * DE CREATION DE LA FLOTTE DU JOUEUR ji 


DORA ROR HORREUR KR RAR RO RROR RO RÉ AR RO RO RAR ARR RAR RARE 


! x 0 = Pas de clic À 
! * 1 = Tous les navires sont placés 
1x 2 = Clic sur grille de jeu # 
1 x 3 = Clic sur option sous-marin * 


RE 
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Clic sur option Torpilleurs 
Clic sur option Croiseurs 

Clic sur option Porte-avions 
Clic sur Pos horizontale 

= Clic sur Pos Verticale 

9 = Clic sur option "COMMENCER JEU" 


1 LEXRERKKEREREREERERRRRRRREERELERRRRARAAREREARE 


> FUNCTION test _creation(xm, ym“) 


AE D, Jar OC LR 
D 1 oO 0 

W 1 
#Æ HO X #  *  % 


LOCAL rep 

1 

rep%=0 

IF @tstzone(xm#,ym%,8,51,120,120) 
rep#=2 

ENDIF 

IF @tstzone(xm%,ym%,136,52,176,13) 
rep#=3 

ENDIF 

IF @tstzone(xm%,ym*,136,76,176,13) 
rep#%=4 

ENDIF 

IF @tstzone(xm%,ym%,136,99,176,13) 
rep#=5 

ENDIF 

IF @tstzone(xm%,ym%,136,123,176,13) 
rep%=6 

ENDIF 


! x TEST SI LES OPTIONS POSITION NAVIRE 
" * SONT ACTIVES 

IF @tst_flotte=FALSE 

IF @tstzone(xm%,ym#,136,147,176,13) 
rep#=7 

ENDIF 

IF @tstzone(xm%,ym%,136,159,176, 13) 
rep#%=8 

ENDIF 

ELSE 

! x TEST SUR ZONE "COMMENCER JEU" SI ACTIVE 
IF @tstzone(xm%,ym%,136,147,176,25) 
rep#=9 

ENDIF 

ENDIF 

RETURN rep% 

ENDFUNC 


1 OKKKKKKKKKRKERKERKRERRÉRRERRERRÉ 


 * GESTION DE LA CREATION * 
* * DE LA FLOTTE DU JOUEUR * 


1 OKKKKKKKKKEKKKRRRAAERRAREEREE 


> PROCEDURE ges creation 
LOCAL xm%, ym, km 
1 


DO 
Gatt_clic(xm%,ym%, km) 


clic#=@test creation(xm%,ym#) 


IF clic#<>0 ! TEST SI CLIC SUR UNE OPTION 
@exec_creation(clic#) 

GattOclic 

ENDIF 

IF clic#=2 ! TEST SI CLIC SUR GRILLE DE CREATION 
@clic grille creation(xm%,ym%) 

@attOclic 

ENDIF 


EXIT IF clic%=9 ! TEST SI CLIC "COMMENCER JEU" 
LOOP' 

! MEMORISATION IMAGE FLOTTE JOUEUR 

GET 8,51,128,171,flotte joueur$ 

RETURN 


D OKKKKKKRRRRARRARARRERREARERKRERRRARERX 


1% * 
! *  ROUTINES DE GESTION DU JEU * 
1 x * 


1 OKKKKKKRKRKKKREERRKREREKRREERRÉRREXREE 


LV OKARAKAKKAKKKAERKRRKRRARERRRRRAR RARE 


! * AFFICHAGE DE L'ECRAN DE JEU * 
VORRRKKRKKKKAREKERERERRERERERARRRRÉE 
PROCEDURE aff _jeu 

LOCAL m$ 

@rect(0,0,320,200,blanc) 

m$="FLOTTE JOUEUR" 
@option(5,11,152,13,vert,noir,m$) 
m$="FLOTTE ORDINATEUR" 
Goption(162,11,152,13,vert,noir,m$) 
PUT 26,28,flotte joueur$ ! IMAGE GRILLE JOUEUR 
@dessin grille(172,28) 

m$="QUITTER JEU" 
@option(6,159,126,30,gris,noir,m$) 
m$="INFOS" 
@option(138,162,45,25,gris,noir,m$) 
m$="NOUVELLE PARTIE" 
@option(189,159,126,30,gris,noir,m$) 
RETURN 


VORRRREKRERERREERERERERERERRÉRRRRRÉRRARRRRRERERÉRARAËE 
" * DESSIN D'UN IMPACT SUR UN NAVIRE DU JOUEUR * 
! KR ARR AK HR RER HRR RE HR HR DID AC HU ARR AR RAR ARR AK 
> PROCEDURE impact _joueur(1#%,c#) 

LOCAL xc%,yc*% 

xc#=(c%-1)*tx case%+26 
yce%=(1%-1)*ty_ case%+28 
COLOR rouge 


QE 
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DEFFILL rouge 

PCIRCLE xc%+6,yc%+6,4 
DEFLINE ,3 

LINE xc%,yc®,xc#+11,yc#+11 
LINE xc%,yc%+11,xc#+11,yc* 
RETURN 


L 
VOLKKKERERAREERERRERRARRERERRRRARARAREX 
1‘ x L'ORDINATEUR TIRE DANS L'EAU * 
LOXKKKRKKERERRRRRRERRERERERRRREERRREEE 
> PROCEDURE aff_tir_eau(1%,c%) 

LOCAL xc%,yc* 

xce=(c%-1)*tx case%+26 

yc%=(1%-1) *ty_case%+28 


DEFFILL bleu3 
PCIRCLE xc#%+6,yc#+6,4 
RETURN 


» 


——————— 


DL OKKRKKRRRRRRRERERRERRRARERRRARRERERÉARERRREREX 


! #  MEMORISATION D'UNE DES CASES OCCUPEES * 
‘ * PAR LE NAVIRE SUBIS AU TIR DU PRG ié 
DORE ROR NOR RO ROR RTE OR RR AR RAR RE RAR RROR ARR RE 
> PROCEDURE memorise case ennemi (1%,c%) 

pos navire en vue%(dommages navire“, 1)=1% 

pos navire en vue*(dommages navire*,2)=c* 
RETURN 


———_—_——————_————— 


D ORRRR OR RRRR OR RAR RAR RRRRRARARERERARREER 


‘ x LE PROG DIMINUE SA ZONE DE TIR * 
! x D'UN CARRE DE 3*3 CASES ji 
PT TTIIILILILSLLLLI LL L SELS SSL SSL LS...) 
PROCEDURE dec zone tir(1%,c#) 

LOCAL 10%,c0% 

1 


FOR 10%=1%-1 TO 1%+1 

FOR c0%=c#-1 TO c%+1 

IF 10%>0 AND 10%<11 AND c0%>0 AND c0%<11 
tir_ordinateur#(10%, c0%)=1 

ENDIF 

NEXT c0% 

NEXT 10% 

RETURN 

1 





LOXKRRRRREREREREERRRARERRRRARARRARRRRARARE 


! * LE PROGRAMME NOTE LES CASES OÙ IL * 
* NE DOIT PLUS FAIRE DE TIRS * 
KRRKERERKKEEEREREERRÉRÉRRARRARÉRRERÉRAREE 
PROCEDURE notation cases 

LOCAL 1%,c% 


FOR i%=1 TO dommages navire* 
1#=pos navire en vue%(i%, 1) 
c#=pos_ navire en vue#(i%,2) 
@dec_ zone tir(1%,c%) 

NEXT i% 

RETURN 





LOKAKERREKERKERERÉRERERERRERRRRRRARRÉRRRRAURÉ 


‘ X LE PROG MARQUE QU'IL NE PEUT TIRER 1e 
1 x SUR LES CASES VOISINES DU SOUS-MARIN * 
IP TTTTTILIIL III ILLLLLILISLIS ESS S SELLES SES). 
PROCEDURE marquage sous _marin(1%,c#) 

LOCAL 10%,c0% 

FOR 10%=1%-1 TO 1%+1 

FOR cO%=c%-1 TO c#+1 

IF 10%>0 AND 10%<11 AND c0%>0 AND c0%<11 
tir_ordinateur#(10%,c0%)=1 

ENDIF 

NEXT c0% 

NEXT 10% 

RETURN 





LOHKRRRRRARARRARRRRRRRRRARRERARAUEX 


! x TIR VERS LE HAUT DE L'ECRAN * 

DL OKKKRARARRRKRKEREERRRRRERERERAARARE 

> PROCEDURE tir haut 

LOCAL navire 

L 

tir_programme#=0 

DEC 1_tir# 

! x TEST SI DEPASSEMENT LIMITE ECRAN 

IF 1_tir%<l 

@new direction tir 

‘ x TEST SI TIR DEJA EFFECTUE DANS CETTE CASE 
ELSE IF tir ordinateur#(1_tir%,c_tir%)<>0 
@new direction tir 

ELSE 

tir programne#=1  ! LE PRG NOTE QU'IL A TIRE 
navire#=grille joueur%(1_tir#,c_tir“) 

IF navire#<>navire_en_vue* 

! * TIR DANS L'EAU 

tir ordinateur#(l_tir%,c_tiré)=1 

HIDEM 

@aff_ tir eau(l_tir%,c_tir#) 

SHOWM 

@new direction tir 

ELSE 

! * TIR SUR UNE CIBLE 

INC dommages navire“ 

@memorise case ennemi(1_tir%,c_tir#) 
HIDEM 

@impact_joueur(1_tir%,c_tir%) 


0 
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SHOWM 
ENDIF 
ENDIF 
RETURN 


ÿ JM LNAUE EBNSE TENNIS 
1 OLEKERKAEARERKERRRRRR ER ERERRR RARE 

! x TIR VERS LE BAS DE L'ECRAN * 

VO KKRKKKAKKRERRAERRRARARRRERARERREREEX 

> PROCEDURE tir bas 

LOCAL navire 

L 

tir_programme#=0 

INC 1_tirz 

! x TEST SI DEPASSEMENT LIMITE ECRAN 

IF 1 tir#>10 

@new direction tir 

! % TEST SI TIR DEJA EFFECTUE DANS CETTE CASE 
ELSE IF tir ordinateur%(1 _ tir%,c tir%)<>0 
@new direction tir 

ELSE 

tir programme#=1  ! LE PRG NOTE QU'IL A TIRE 
navire#=grille joueur%(1 tir#,c_tir%) 

IF navire#<>navire en vue 

! X TIR DANS L'EAU 

tir ordinateur#(1 tir#,c tir%)=1 


HIDEM 

Qaff tir eau(1 tir%,c tir) 
SHOWM 

@new direction tir 

ELSE 


! * TIR SUR UNE CIBLE 

INC dommages navire“ 

@memorise case ennemi(1_tir%,c_ tir*) 
HIDEM 

@impact_joueur(1 tir%,c tir) 

SHOWM 

ENDIF 

ENDIF 

RETURN 


LORKKKKAKARARARARRAREARERERRARERERERAR 

 * TIR VERS LA GAUCHE DE L'ECRAN * 
LOKAKKKAKEARERKRRRRARERERERERERRERERHR 

> PROCEDURE tir _gauche 

LOCAL navire 

tir_programme#=0 

DEC c tirs : 

! * TEST SI DEPASSEMENT LIMITE ECRAN 

IF c tir#<1l 

@new direction tir 

" * TEST SI TIR DEJA EFFECTUE DANS CETTE CASE 
ELSE IF tir ordinateur%(1 tir%,c tir%)<>0 


@new direction tir 
ELSE | 
tir_programme#=1  ! LE PRG NOTE QU'IL A TIRE 
navire*=grille joueur%(1_tir%,c tir#) 

IF navire#<>navire en vue 

 * TIR DANS L'EAU 

tir ordinateur%(1_tir%,c tir%)=1 

HIDEM 

@aff_tir eau(l tir%,c tir) 

SHOWM 

@new direction tir 

ELSE 

* * TIR SUR UNE CIBLE 

INC dommages navire 
@memorise case ennemi(1_tir%,c_tir%) 

HIDEM 

@impact joueur(l_tir%,c_tir%) 

SHOWM 

ENDIF 

ENDIF 

RETURN 





LOKRKKKAKEAKRAKREKRERARAREREKRRERRERERAAERRE 

! * TIR VERS LA DROITE DE L'ECRAN * 
LOKKKKKKKKKRKKKKRERERERERERERERERRERAX 

> PROCEDURE tir droit 

LOCAL navire 

tir_programme#=0 

INC c tirs 

! * TEST SI DEPASSEMENT LIMITE ECRAN 

IF c tir#>10 

@new_ direction tir 

! * TEST SI TIR DEJA EFFECTUE DANS CETTE CASE 
ELSE IF tir ordinateur#(l tir%,c tir#)<>0 
@new direction tir 

ELSE 

tir_programme#=1 ! LE PRG NOTE QU'IL A TIRE 
navire#=grille joueur#(1_tir%,c_tir#) 

IF navire#<>navire en vue 

! * TIR DANS L'EAU 

tir ordinateur%(1_tir%,c tir%)=1 

HIDEM 

Qaff_tir eau(l_tir%,c_ tir#) 


“SHOWM 


@new direction tir 

ELSE 

! * TIR SUR UNE CIBLE 

INC dommages navire 

@memorise case ennemi(1_tir#,c tir) 


HIDEM 
@impact_joueur(1_tir%,c_tir%) 
SHOWM 
ENDIF 
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ENDIF 
RETURN 





KEAKKERRRERRRRRRRERERRARERRREEREEERERERAAARREERERREX 


* LE PROGRAMME DETERMINE UNE DIRECTION DE TIR * 
LOXRKKKRKRRARKRREKREERERRREREREKREEKRERERÉRAREERRARÉRERÉ 
> PROCEDURE new direction tir 

LOCAL d# 

U 

DO 

d#=RANDOM(4)+1 

EXIT IF test direction tir#(d%)=0 

LOOP 

test direction tir#(d%)=1 

cible direction#=d# 

1_tir#=1_ciblez 

c tir#=c cibles 

RETURN 





LORRAKKARRARARAEERERERRRRRRRARARE AAA 


! * L'ORDINATEUR TIRE SUR UN NAVIRE * 
! * DEJA ENDOMMAGE $ 
LOAKAKRARRARAKERERERERRRRARRARERRREREREE 
> PROCEDURE tir sur navire 

LOCAL taille 

1 

IF cible directions=0 

ARRAYFILL test direction tir#(),0 

@new direction tir 

ENDIF 

DO 

SELECT cible directions 

CASE 1 
@tir gauche 
CASE 2 
@tir droit 
CASE 3 
@tir haut 
CASE 4 
6tir bas 
ENDSELECT 
EXIT IF tir_programme#=1 

LOOP 

! * TEST SI LE NAVIRE EST COULE * 
taille#-@taille navire(navire en_vue#) 
IF taille*=dommages navires 

@notation cases 

INC pertes_joueur* 

navire en vue#=0 

dommages _navire=0 

cible direction+=0 


! TIR VERS LA GAUCHE 


| TIR VERS LA DROITE 


! TIR VERS LE HAUT 


! TIR VERS LE BAS 


ENDIF 
RETURN 


D OKKKKRKKKERERERARERERARARAEEXÉ 


! * TIR DE L'ORDINATEUR " 
1 x SUR UNE CASE ALEATOIRE * 
1 ORKRAKKKKHRERRKRRERRARRARRAEEÉE 
PROCEDURE tir aleatoire 

LOCAL 1%,c%,navire 

DO 

1%=RANDOM(10)+1 
c#%=RANDOM(10)+1 

EXIT IF tir ordinateur#(1%,c%)=0 
LOOP 

navire#=grille joueur%(1%,c#) 
SELECT navire“ 

CASE 0 
tir_ordinateur%(1%,c%)=1 

HIDEM 

@aff_ tir eau(1%,c%) 

SHOWM 

CASE sous marins 

tir _ordinateur%(1%,c#)=1 

INC pertes joueur“ 


HIDEM 
@impact_joueur(1%,c#) 
SHOWM 


@marquage sous marin(1%,c#) ! MARQUAGES CASES 
ADJACENTES 

CASE torpilleur#,croiseur#,porte avion“ 
navire en vue#=navire* 

1 cible#=1# 

c_cible#=c# 

cible directions=0 

dommages _navire#=1 
@memorise case ennemi (1%,c#) 


HIDEM 
@impact_joueur(1#,c%) 
SHOWM 

ENDSELECT 

RETURN 


LOKKKKKRERERKRAKRERERRRERERERAARRAAR RARE 
! * GESTION DU TIR DE L'ORDINATEUR * 
VOKKRKKRRALARAERAAREERREREERERRERARARERER 
> PROCEDURE gestion ordinateur 

IF navire en vue#=0 

@tir aleatoire 

ELSE 

@tir sur navire 

ENDIF 

IF pertes joueur#=10 

ordinateur gagnant#=1 

ENDIF 


oo 
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RETURN 


PT TIIIISI SIT I ISLE SSUNLSSSSS. 


! % IDENTIFICATION DE LA ZONE DE JEU * 
! x  SELECTIONNEE PAR LE JOUEUR % 
LU OLXKKEKERRRRRERKEKERERERRRRRRÉRRERRRARARERRRRE 
FUNCTION identif_zone(xm%,ym%) 

LOCAL rep 

: 

rep#=0 

IF @tstzone(xm%,ym%,172,28,120,120) 
rep#=1 

ENDIF 

IF @tstzone(xm%,ym%,189,159,126,30) 
rep#%=2 

ENDIF 

IF @tstzone(xm%,ym%,6,159,126,30) 

rep=3 

ENDIF 

IF @tstzone(xm%,ym%,138,167,45,25) 
rep#=4 

ENDIF 

RETURN rep# 

ENDFUNC 

1 


! 

D OKKKKKKKKAKARERRRRRRERKÉRERERÉERERARRERERRREEXRE 
! * TEST SI LE JOUEUR VEUT QUITTER LE JEU * 
LOKXKKKKKRKRKERERKARRERERRRERERERRERRRERÉRERRRÉ 
> PROCEDURE tst quitter jeu 

LOCAL m$,b% 

t 

m$="Voulez-vous vraiment|quittez ce jeu ?" 
ALERT 0,m$,2,"Oui |Non",b% 

IF b%=1 

fin_prg%=1 

ENDIF 

RETURN 


L'OKAKKAKEKKKKAKRRKRRRRERRE 

"x OPTION "INFOS" * 
LOKARAKAKKRRARRARARARKE 

> PROCEDURE infos 

LOCAL m$,b% 

m$="BATAILLE NAVALE ATAMAG" 
m$=m$+"|(C) 1992 Patrick Leclercq " 
m$=m$+"|(C) 1992 Atari Magazine" 
m$=m$+"|Gfa Basic 3.xx" 

ALERT 0,m$,1,"Oui",b% 

RETURN 


T'OKKAKKKAKEKAKRAKAKEKKRARKERRERARKRRERRRRRE 


! * EXECUTION DES FONCTIONS DU JEU * 
L'RHAKKKRARRRAARERAARARRERERARRERRERERE 
PROCEDURE exec_commande(c%) 

SELECT c% 

CASE 2 

nouvelle partie#=1 

CASE 3 

@tst quitter jeu 

CASE 4 

@infos 

ENDSELECT 

RETURN 


T1 'XKKAKKKKKEKKAKRERKEREKRRKRARÉREERRRÉ 
! X LECTURE DU TYPE D'UN NAVIRE * 
D OKXKKKKKEKRKRKERRKEREKKREKKRERRRERERÉRÉ 
> FUNCTION get_ type navire(n%) 
LOCAL rep* 

rep#=—1 

SELECT n% 

CASE 0 

rep#=0 

CASE 1 

rep#=porte avion“ 

CASE 2,3 

rep#=croiseur“ 

CASE 4,5,6 

rep#=torpilleur“ 

CASE 7,8,9,10 

rep*=sous marin“ 

ENDSELECT 

RETURN rep 

ENDFUNC 


D OAKKKKRKRKKKKRERKKEERKRRKKKRREKRRREREREE 


" * IDENTIFICATION DE LA CASE  * 

! *  SELECTIONNEE PAR LE JOUEUR * 

" #  VALABLE UNIQUEMENT POUR LA * 

! # GRILLE DE TIR DU JOUEUR " 

! KAKKKKKKARAKKERAKRKEARKRRRARERRKE 

> PROCEDURE identif case tir(xm%,ym%, VAR 1%,c%) 
LOCAL px%,py# 


px#=xm#—172 
py#=ym<—-28 
1%=(py%/ty_case)+1 
cé=(px%/tx_case%)+1 
RETURN 


lOKKKKKAKKKÉRRKRKRERRERKRRRRRRRRRRRERRE 
* # AFFICHAGE D'UNE CROIX VIDE * 
LOKKKKKKRAAKRRRARRRREARAKKRRRRRERRÉE 
> PROCEDURE aff_ croix vide(1%,c#) 
LOCAL xc%,yc® 
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xce=(c#-1)*tx case*+172 
yce=(1%-1)*ty case*+28 
COLOR noir 

DEFLINE ,1 

LINE xc%+3,yc#+3,xc%+9,yc#+9 
LINE xc%+3,yc#+9,xc%+9,yc#+3 
RETURN 


* 


V1 OXKKKKKKKRERRKREARERERERRRRARERKE 


! x AFFICHAGE D'UN TIR REUSSI * 
LOHKKKKKKERRRRREAKERERKRRRRRRRRARX 
> PROCEDURE tir reussi(1%,c#) 
LOCAL xc#%,yc®% 

xc#=(ce-1)*tx case*+172 
yc#=(1%-1)*ty_case#+28 

COLOR rouge 

DEFFILL rouge 

PCIRCLE xc%+6,yc%+6,4 

DEFLINE ,3 

LINE xc%,yc%,xc#+1l,yc#+11 

LINE xc%,yc#+11,xc%+11,yc# 

RETURN 


IPS TIILILI LILI LILI LILLLLILSSS EL) 
‘ X AFFICHAGE D'UN IMPACT * 
LOKKKKKAKERERERKRERREREREERERRÉRE 
> PROCEDURE aff_impact(1%,c#) 
LOCAL xc#,yc* 

L 

xc#=(c%-1)*tx_case%+172 
yc#=(1%-1) *ty_caser+28 
DEFFILL rouge 

PCIRCLE xc%+6,yc%+6,4 

RETURN 


' 

LV OHEKKREEKRRAKKRARERERAREEEAREREREERE 
‘x AFFICHAGE D'UN NAVIRE COULE * 
LOKKKERRRERERRAEERERERRNEEERRRREAREARE 
> PROCEDURE aff navire coule(n#) 
LOCAL 1%,c% 

FOR i%=1 TO nb_impacts%(n%) 
1%=pos_impact#(n%,i%,1) 
c*=pos_impact#(n%,1%,2) 

@tir reussi(1%,c%) 

NEXT i% 

RETURN 


L 

VO XKRÉRKRKEXERERRERRREERERRRRRRRERÉRRREAREARARERERK 
1 x  MEMORISATION DE LA POSITION DE L'IMPACT * 
1 RRAKKKKKEREREREREEEERRRERERREEEEREERRKRÉREREÉÉÉE 
> PROCEDURE memorisation impact(n#,1%,c%) 

LOCAL impact 


impact#=nb_impacts%(n%) 
pos_impact#(n%, impact, 1)=1% 
pos_impact#(n%, impact, 2)=c% 
RETURN 


1 'HKKKKARERERRRAEEEERRRRRRRAAEE 


1 # GESTION DU TIR DU JOUEUR * 

LU OXKKKEKERARAKEKRERERRKRRRERERREREE 

> PROCEDURE tir _joueur(xm, ym) 

LOCAL 1%,c%,navire%, type navire#,tailles 
@identif case tir(xm%,ym%, 1%,c%) 
navire%=grille ordinateur%(1%,c%) 

type navire%=@get_type navire(navire#) 
SELECT type navire 

CASE O ! TIR DANS L'EAU 

grille ordinateur%(1%,c#%)=-10 


HIDEM 
@aff croix _vide(1%,c#) 
SHOWM 


tir joueur#=1 

CASE sous marin%,torpilleur“%,croiseur*,porte avion“ 
HIDEM 

@aff_impact(1%,c#) 

! MEMORISATION TIR 

grille ordinateur#(1%,c%)=-navire 
INC nb_impacts%(navire“) 
@memorisation impact(navire, 1%,c%) 
! TEST SI NAVIRE COULE 
taille#=@taille navire(type navire) 
IF nb_impacts#(navire%)=taille* 
@aff navire coule(navire“) 

INC pertes ordinateur“ 

‘ *x TEST SI LA FLOTTE ORDINATEUR EST DETRUITE 
IF pertes _ordinateur%=10 

joueur gagnant*=1 

ENDIF 

ENDIF 

tir_joueur#=1 

SHOWM 

ENDSELECT 

RETURN 


LV OXKRKEKKREERRRKÉRREARKKERERRERRRRRKEREARE 
! x GESTION DES ACTIONS DU JOUEUR * 
LV OXARKEKERRAREREREERERERRERRRRARERERARX 
PROCEDURE gestion joueur 
LOCAL xm%,ym%,km%,zone* 


tir_joueur=0 

DO 

@att_clic(xm%,ym%, km%) 
zone%=@identif_zone(xm%, ym“) 
SELECT zone# 


00 


SUPPLEMENT ATARI MAGAZINE N°37- SEPTENBRE 1992 

















CASE 2,3,4,5,6 

@exec commande(zone#) 

CASE 1 
@tir_joueur(xm%, ym%) 
ENDSELECT 

! TEST SI LE JOUEUR A TIRE 
EXIT IF tir joueur#=1 

! TEST SI SORTIE DU PROG 
EXIT IF fin prg#=1 

EXIT IF nouvelle partie%=1 
LOOP 

RETURN 


LORKKKKKKRKRRRRRRRRERERRRE 


! * GESTION DU JEU * 
D ORRKRKRERARERÉKRARERÉÉ 
PROCEDURE gestion jeu 
HIDEM 

Gaff_jeu 

SHOWM 

fin_prg=0 

DO 

@gestion_ joueur 
EXIT IF fin prg%=1 
@gestion ordinateur ! GESTION ACTIONS ORDINATEUR 
EXIT IF fin prg#%=1 

" x TEST SI JOUEUR GAGNANT 

EXIT IF joueur gagnant=1 

" * TEST SI ORDINATEUR GAGNANT 

EXIT IF ordinateur gagnant+=1 

! X TEST SI NOUVELLE PARTIE 

EXIT IF nouvelle partie*=1 

LOOP 

RETURN 


} GESTION ACTIONS JOUEUR 


L'OHKKKKAKRAKARKRRRRRREREERERERERRERRREERER EEK 


! # TEST SI UNE ZONE DE LA GRILLE DE LA * 

! * FLOTTE DE L'ORDINATEUR EST VIDE. x 
LORKKKKARARARRERARKRRRRERKRRRERRERRERARRRRARAR 

" * 1%,c%: position de la zone à tester * 

" * nb 1%,nb c#%: dimension de la zone  * 
LOKRKKKRAKREKRARARRERAERRRERERARRRRÉERRRRARERRRRRAE 

> FUNCTION tst grille ordinateur(1%,c%,nb 1%,nb_c#) 
LOCAL 10%,c0%,rep* 

1 


rep#=TRUE 

FOR 10%=1% TO 1%+nb_1%-1 

FOR cO%=c% TO cé+nb c#-1 

IF (c0%>0) AND (c0%<11) AND (10%>0) AND (10%<11) 
IF grille ordinateur#(10%,c0%)<>0 

rep%=FALSE 

ENDIF 

ENDIF 

NEXT c0% 

NEXT 10% 


RETURN rep% 
ENDFUNC 


LOKKAKKKKKKERKAKAKRRRRKREERARRRRERERERERERARERKXE 


! * TEST SI UN NAVIRE PEUT ETRE # 
© *  ECRIT DANS LA GRILLE DE L'ORDINATEUR * 
D OKRKKKKKKKKKRRRRRRERÉRÉERRRRRRRÉRRRRÉRAREELREE 
> FUNCTION tst navire ordinateur(1%,c%,n%,d#) 
LOCAL rep#,t% 

rep#=TRUE 

t*=@taille navire(n%) 

D OKAKXKRKKRRRARAAAAKRAREARAREAX 

‘ * NAVIRE HORIZONTAL * 

LD OAKRKKAKRARARRRRRRARAREAEARE 

IF d#=1 

IF c%>(11-t%) ! TEST SI DEPASSEMENT GRILLE 
rep%=FALSE 

ENDIF 

! * TEST SI NAVIRE DANS CASES ADJACENTES * 
IF NOT (@tst grille ordinateur(1%-1,c%-1,3,t#%+2)) 
rep#=FALSE 

ENDIF 

ELSE 


D ORKAKRKRRREARAARRARERARE 


‘x NAVIRE VERTICAL * 
LORAKAARKAKKLAKRRRRRERERXE 

IF 1%>(11-t%) ! TEST SI DEPASSEMENT GRILLE 
rep%=FALSE 

ENDIF 

! # TEST SI NAVIRE DANS CASES ADJACENTES * 

IF NOT (@tst grille ordinateur(1%-1,c%-1,t%+2,3)) 
rep%=FALSE 

ENDIF 

ENDIF 

RETURN rep% 

ENDFUNC 


lORKKKRRRARAREARARERERRRRARARRRARARRRRE 


" * STOCKAGE D'UN NAVIRE EN MEMOIRE * 
© * DANS LA GRILLE DE L'ORDINATEUR  * 


LORARKKRKARAARARARRRARARARARRARARAREREAR 


x 1%,c%: position du navire ‘y 
DE 1: 14 numéro du navire Le 
2 direction du navire ; 


LOARKKKAKRAARARARARAERRRRELARARKRRRRERRARE 


> PROCEDURE stockage navire ordinateur(1%,c%,n%,d%) 
LOCAL 10%,c0%,type%,taillex 

type=@get_type naviré(n#) 

taitle*-@taille navire(type#) 

IF d#=1 ! NAVIRE HORIZONTAL 

FOR cO%=c% TO céttaille#-1 
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grille ordinateur#(1%,c0%)=n# 

NEXT c0% 

ELSE ! NAVIRE VERTICAL 
FOR 10%=1% TO 1#%+taille#-1 

grille ordinateur%(10%,c%)=n% , 

NEXT 10% 

ENDIF 

RETURN 


1 
LOKKKKKKKKARKRRKKRRERKERERRRERRERRRRARRRRAARE 
! x PLACEMENT FLOTTE DE L'ORDINATEUR * 
D OKKKKKKKXKERERERRERRERÉERAERRERARERRREKRAREE 
> PROCEDURE placement flotte ordinateur 
LOCAL 1%,c%,d%,n%,1%,type* 

 %: PLACEMENT PORTE-AVION 

type*=porte avions 

n#=1 

DO 

1%=RANDOM(10)+1 5 
c%=RANDOM(10)+1 

d#=RANDOM (2) +1 

EXIT IF @tst navire ordinateur(1#%,c#,type%,d#) 
LOOP 

@stockage navire ordinateur(1%,c#%,n%,d*) 
! PLACEMENT CROISEURS 

type#=croiseur 

n#%=2 

FOR i%=1 TO 2 

DO 

1%=RANDOM(10)+1 

c%=RANDOM(10)+1 

d%=RANDOM(2)+1 

EXIT 1F @tst_ navire ordinateur(1%,c%,type*, d*) 
LOOP 

@stockage navire ordinateur(1%,c#,n%,d*) 
INC n% 

NEXT i% 

! PLACEMENT TORPILLEURS 
type#=torpilleur“ 


n%=4 
FOR i%=1 TO 3 
DO 


1%=RANDOM(10)+1 

c%=RANDOM(10) +1 

d%=RANDOM(2)+1 

EXIT IF @tst navire ordinateur(1%,c%,type%,d*) 
LOOP 

@stockage navire ordinateur(1%,c%,n%,d*) 

INC n% 

NEXT 1% 


! PLACEMENT SOUS-MARINS 


type%=sous marins 

n%=7 

FOR i%=1 TO 4 

DO 

1%=RANDOM(10)+1 

c%=RANDOM(10)+1 

d%=RANDOM(2)+1 

EXIT IF @tst navire ordinateur(1%,c%,type*, d#) 
LOOP 

@stockage navire ordinateur(1%,c#%,n%, d“) 
INC n% 

NEXT i% 

RETURN 





D ORKKRKRERRERERRRÉREREREREEEERERERRERARRRARERÉRAUX 


* INITIALISATION DES DONNEES DU PROGRAMME 


1 OXRKKRRERRREERRAREERREREÉERÉERRRRERRALREARREEREEE 


PROCEDURE init_prg 


1 OXRKKKKKKKRERKKRARERERRRERRRRRRRE 


! x DEFINITION DES COULEURS * 
VO KXKAKKKRRRAARERARKRERERRERÉRRRRE 
blanc=1 

noir=0 

rouge=2 

vert=3 

bleu2=10 

bleu3=5 

marron=6 

vert2=7 

gris=8 

gris2=9 

bleu=10 

bleu4=11 

violet=12 

violet2=13 

jaune2=14 

jaune=15 

L 

ARRAYFILL grille joueur%(),0 
ARRAYFILL grille ordinateur#(),0 
ARRAYFILL tir ordinateur#() ,0 


LOXKKAKKKERERKRRKERRERERERERRRRARE 

! x NB DE NAVIRES DISPONIBLES * 
LOKEKEKKKRRKRKEKRKKRERERERRERKRAREREREX 
navires disponibles%(sous marin“) =4 
navires disponibles*(torpilleur#)=3 
navires disponibles*(croiseur“)=2 
navires disponibles*(porte avion*)=1 


D OKRRERARRERERERERRRRARERRRERERÉRERAARAREEARÉ RARE RAR 


! * TABLEAU CONTENANT LES POSITIONS DES NAVIRES 


1! * DE L'ORDINATEUR TOUCHE PAR LE JOUEUR 
! * pos impact%(n,i,p) 


* 


* 


+ 


oo 


SUPPLEMENT ATARI MAGAZINE N°37- SEPTENBRE 1992 


19 








1 * n = numéro de navire (1 à 10) + 
i x j = numéro impact (1 à 4) * 
* 


‘x p = ligne ou colonne (1-ligne; 2=colonne) 
1 LARKERÉEKERRERRAERERERRERKARERERRERERERREAREREREE 


ARRAYFILL nb_impacts#() ,0 
ARRAYFILL pos impact#() ,0 


L KXAKRRKARRKRAREREKREKARRERÉRRÉÉ 


! # VARIABLE GLOBALE Se 
! * DIRECTION DES NAVIRES * 
# % 1 = horizontale # 
! * 2 = verticale ni 


LOKKKKKAKAKKKKKEKRERERAREKERREER 
navire direction#=1 
1 


LOKKKKKKKKAKERKKRERKERERAREREAKRERERARARRARERRRRRRRRRER 


 * VARIABLE GLOBALE = 
" # TYPE DE NAVIRE COURANT LORS DE LA CREATION * 
! # 0 = pas de navire * 
LOKKAKKKKAKAÉERERAREEKRRARERERRARRRERRRRRARRÉRERERRRA AR 
type navire*=sous marins 


LOKKAKKKKKKKRERKERKRKRRERRRRERRE 


! X VARIABLE FIN DE PRG * 
! # 0 = Continuer prg 
! X 1 = Quitter prg # 


LORAKARARKRRERARRERERERARAX 


fin_prg#=0 
1 


L OKAKAKAKKKKAKAKRARERERRARARERERRERARERERE 


 * VARIABLES CONTENANT LE VAINQUEUR * 
lOKKKKKKKKKAKKERKRKRERKRERRKREARERKRERRREREREE 
joueur _gagnant+=0 

ordinateur gagnant#=0 

nouvelle partie#=0 

D OXKAKKAKRKAKKEKEKRKKEKEKKREKREKRKRRKRRRRRRER 

" # ETAT DES FLOTTES EN PRESENCE * 

DORA AKRAARRRRRRARRRRRERAREARRARRAREA ER 
pertes ordinateur#=0 

pertes_joueur=0 


L'OKXKKKKRAKAARRARRAKAARRARRARARARAARREARERAREREX 


! * VARIABLE INDIQUANT QUE L'ORDINATEUR j 
! * A REPERE UNE CIBLE IMPORTANTE Lo 
! *  (TORPILLEUR, CROISEUR OÙ PORTE AVION) * 
© * O0 ==> Pas de cible importante td 
! # <>0 ==> Type de cible : h3 


LOKKKKKRKKKKRERERKEERERERERKRERRERRERREREKREERERERE 
1 (7 

navire en vue#=0 

1! 

L'OKAKAKKkRKKRKRRERRERERERERERRÉRERERÉRRE 


 * POSITION DE LA CIBLE REPEREE * 


L'OKARKKRRRERERAREKXKRKEKRRKKRERRRRRREE 


1_cible#=0 
c_cible#=0 


1 OKXKKKKKAKAAKKKREREREKKEERREREEEE 


! * DIRECTION DE LA CIBLE * 
! X (= pas connue = 
1 ko de ee de dede he de de de he he he he he de le de ee 
cible directions=0 

: 


L'OXKKKRKRKKRARAKRERKRARARERKEREREERKRARRRRRERRE 


! *  DOMMAGES SUBIS PAR LE NAVIRE SOUMIS * 
© # AU TIR DU PROGRAMME Le 
LOKKKKKKRKERERERRRRERERERERRAREREERERARARRRR 
dommages_navire%=0 

: 


LORAKKKAKKKKRKKRKRERREKRKRERREREERRRARARERERRERE 


" * VARIABLE INDIQUANT QUE LE JOUEUR * 
" * A TIRE SUR LA FLOTTE ENNEMI. ie 
LOKKKRKARERARERRRERRERRÉRREREREELERRREMÉRRËÉ 
tir_joueur%=0 
LOKRKRKRKARARAKRRRARARERRERERERE 

" * DEFINITION CASE GRILLE * 
LOKAKRKAKREARARARAREREREREREERERE 

tx _case#=12 

ty_case#=12 

VSETCOLOR 0,0 

VSETCOLOR 1,7,7,7 

RETURN 


D OKKKKKKKKKKRRKERRRRRKRERRRRERERERRRER 


! * RESTAURATION DES COULEURS * 
" * DU BUREAU GEM Se 
1 OKXKKKKKKKEKERKRKERERERERKRERERERE 
> PROCEDURE reset_prg 

VSETCOLOR 1,0 

VSETCOLOR 0,7,7,7 

RETURN 


LOKKKKKKRRKRARERRRRRERRERÉE 
 *  EXECUTION DU JEU * 
LORAKKARRAKRKKRARRRARRRERRE 
PROCEDURE exec_jeu 

LOCAL m$,b% 

Û 

DO 

Qinit_prg 
@dessin_ecr_pos 

SHOWM 

@ges creation 
@placement_flotte ordinateur 
@gestion jeu 

IF joueur gagnant<=1 
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m$="VOUS AVEZ GAGNE|Une autre partie ? " 
ALERT 0,m$,1,"Oui|Non",b% 

IF b%=2 

fin prg%=1 

ENDIF , 

ENDIF 

IF ordinateur gagnant#=1 

m$="VOUS AVEZ PERDU|Une autre partie ? 
ALERT 0,m$,1,"Oui |Non",b% 

IF b%=2 

fin_prg#=1 

ENDIF 

ENDIF 

EXIT IF fin _prg%=1 

LOOP 

RETURN 


LOXKKKAKRKREREAREKRARAREREREREX 

" * PROCEDURE PRINCIPALE * > 
LOKKKKKAKARAREREKERRERRRRRREE 

PROCEDURE main 

RANDOMIZE 

GRAPHMODE 2 

Gexec_jeu 

@reset_prg 

RETURN 
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25 ‘Logiciels : Rédac- 
teur3.15, ADebugC+. 
Reportage : Open de 
Torcy, CESde Chicago. 
Emulation : Emulation 
MAC 


Graphisme :Retouche 

Pro couleur, Démo cons- 

truction kit, 3D construc- 

tionkit. 

De nx:AucoeurduLynx. 
orgrammation : La 

méthodel.F.S. 

Musique : Il est MIDI 

Mozart. 

Portfolio : Nouveautés 

3615:PBasic,PChess. 


28 : Musique : Passport 
Encore, l'offre Musick 
PackAtari. 
Matériel 
Power. 
Graphisme : Les trucs 
des démos, Prism Päint, 
techniques animation. 
Jeux : Hunter, Croisière 
pouruncadavre. 
Lynx:LeLynx2. 

ossier : Les périphéri- 


ques. 
Logiciel : Devpac TT, 
Late A nach C, Diamond 
ac 


KI. 
PC:Vortex80386SX 


31 : : Musique : Digital 
impact. 

Dossier : Educatifs mode 
d'emploi, le style des logi- 
ciels, Bordas, Paris pour 
lesjeunes. 

Reportage : Informatique 
etcinéma. 
Portfolio : 
surPC. 
Lynx : Simulation, Golf, 
arcade. 

Programmation : Initia- 
tion GFA, les sprites, 
Omnikron, 

Logiciel : Les prévisions 
astrales,leTaromancien. 


34:Le point Falcon. 
Musique : se Po land, 
Tableauxprog AO 
Logiciel : 6 éducatifs. 
Sténo2. STalker. PC 
command. 

Reportage : Synergie et 
communications. 


: Lecteur Blitz 


Programmer 


Lynx : Toki, Super 
Skweek. 

Matériel: Tranddrive. 
Portfolio: L'écran. 
Dossier : Langage de 
programmation. 
RTE : Initia- 


tionauC,auGFA 
Dossier: téléchargement 


envoyez-le 


accompagné du règlement 
MCM Atari 16 Quai J-B Cléme: 


26: Logiciel: Sbudgetet 
Gescomptes 2, Studio 
Scan, Scigraphil. 
Matériel : Disques durs 
Procar. 

Portfolio: Turboforth. 
Graphisme : Lasergraph 
Pro, techniques anima- 
tion. 

Jeux : Monkey Island,Life 
anddeath, Billard Simula- 
torll. 

Musique : Evolution Syn- 
thesis EVS-1, Midibos 
MDX1000. 

Dossier : SGBD, Phoe- 
nix,Suprbas2,DBManlV. 


29 :Musique : Band in a 


box. 

Logiciel : Zest, Solution, 
Nerodesk3, Racines. 
Portfolio: Microcard. 
Reportage:ParisCité. 
Graphisme : Aventures 
de Paul Higone, Quick 
RayTracer. 

Dossier: Les jeux, hits de 
Noël, BAT II, les meilleurs 
jeux 91, les compilations, 
lesclassiques. 
Programmation : Initia- 
tion à Omnikron, au C, lis- 
ting aventures Paul 
Higone. 


32 : Musique : Kaplell- 
meister,M.A.O. 
Reportage : MIDI à la 
Vilette,peintressurSTE. 
Dossier : La vidéo. Ses 
principes, les digitali- 
seurs, genlocks, codeurs 
vidéo, showsd'images. 


.Portfolio:LePP Basic. 


Lynx:BillandTed's. 

rogrammation : initia- 
tion Omnikron, GFA, C, 
listingQuickRayTrace. 
Graphisme : Néochrome 
Master, QuickRay Trace. 
Logiciel : Le Grapholo- 
gue. 


35 : Musique : M.A.O, 
Dorémifacile. 
Logiciel:Léo-ST. 
Dossier : Figures impo- 
sées, le Rédacteur 4, Cal- 
ligrapher 2.25, Script2:1, 
1st word plus, Graal text 
1.08,Burotext. 
Programmation : Initia- 
tion à Omnikron, au C, au 
GFA 


Graphisme : Quick Ray 
TracelV,Phase4. 

Lynx : Wargame, 3D, 
simulation. 
Portfolio:Cartes RAM. 
Matériel:Ecran 19", 








ATARI Magazine 


* Les anciens numéros 


Liste complète et détaillée de tous les sommaires de tous les 
anciens numéros disponibles contre un timbre à 2,50 F. 


27 :Musique : Midia, 
Midnight. 
Logiciel : Néodesk 3, 
DaatscanPro. 
Graphisme : Trucs et 
démos avec DCK, techni- 
uesanimation. 

eux : Vroom, F15 Strike 
Eaglell,Flightintruder. 
Lynx:Le défi. 

ossier : Les sounditrac- 
kers, les échantillon- 
neurs. 
C.A.0 : ZZ Volume, ZZ 
3D,ATSpeedC16. 
Programmation : Jeu de 
yam,Cetgraphisme. 


30 :Matériel : Atari PC 

80386SXetDX. 
Logiciel : BDC Gest, 
Vibracolor. 

Graphisme : Dessiner 

avecQuicRay Tracer. 

Musique : Lazernote, 

Trax. 

Reportage : Apack, Aro- 

bace. 

Dossier : Environnement 

Atari. 

Lynx : Scrapyard Dog, 
Ishido, QIX. 

Portfolio : Bibliothèques 

graphiques duLNA. 
rogrammation:Sprites 


33 : Dossier P.A.0 : 
Documents ‘sur mesure, 
Timeworks Publisher 2 
Publishing Partner Mas- 
ter 2.1, Calamus 1.09N, 
SAUNESS 

eportage:Scap. 
Lynx : Toki, 
Skweek. 
Portfolio : Les fonctions 
système. 

rogrammation : Listinc 
Portfolio, initiation au C 
listingQuickRay Trace. 
Matériel : Multidrive 
Power. 
Logiciel: Astronomiell. 


36: : Musique : Big Boss 
24,M.A.0. 


Super 


Falcon : La nouvelle 
micro. 
Dossier : Canard Plus 


Xenos, mélomanes, 
sculptureàl'écran. 
Graphisme:Trico. 
Portfolio: Programmerer 
Basic. 
Logiciel : Photolab F/X 
Haedline,Lotopsy. 
Lynx:Batmanreturns. 
rogrammation : Listinc 
Trico, Esay disk, Maste 
mind, initiation à Omni 
kron, auGFA. 
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PACS S. LEE 


PROGRAMMATION EN GFA BASIC 
SOS CFA Basic 





Le nombre de questions que se posent les utilisateurs concernant 

le GFA Basic va croissant. Face à cet afflux, voici une nouvelle 

rubrique destinée à répondre aux questions types et à résoudre les 
problèmes les plus courants. 





a liste des questions ne se veut pas 
exhaustive. Nous essayons de pallier 
couramment 


L 


les problèmes les plus 
rencontrés par les utilisateurs. Envoyez vos 
questions par courrier à l'adresse du 
magazine ou tapez 3615 Atari bal GFA 


Basic. 


Je possède la version 3.03 du GFA Basic et 
j'aimerais savoir si cela vaut la peine 
d’acheter une version plus récente? 

C'est une question difficile dont la réponse 
dépend beaucoup de votre budget puisque le 
prix d’une mise à jour est de quelques 
centaines de francs. La dernière version du 
GFAGFA Basic (8.5E) n'est pas fondamen- 
talement différente de la version 3.03. Elle 
possède quelques instructions spécifiques 
permettant de gérer les particularités du STE 
(manettes de jeu, fonctions sonores et gra- 
phiques), mais ces fonctions peuvent faci- 
lement être programmées en GFA Basic 3.03 
en utilisant les fonctions XBI0S. De plus, les 
matheux seront heureux de savoir que les 
versions 3.5 et 3,5E du GFAGFA Basic pos- 
sèdent des fonctions matriciels très puis- 
santes. Les auteurs de la version 3.5E ont 
corrigé bon nombre de bogues présents dans 
les versions précédentes où il arrivait parfois 


qu'un programme ne fonctionne plus une 


fois compilé. 


Le GFA Basic permet-il d'écrire des 
logiciels équivalents aux logiciels vendus 
dans le commerce? 

La réponse à votre question est oui et non. 
Oui, parce que certains des logiciels du 
commerce sont effectivement écrits en GFA 


22 


Basic, notamment des jeux d’aventures et 
des petits programmes de gestion. Non, car 
le Basic est un langage d'initiation conçu 
pour les débutants en informatique. Le GFA 
Basic est une version très évoluée du Basic de 
base, mais reste toujours un langage à la 
structure simple manquant de mécanismes 
élaborés pour gérer des problèmes com- 
plexes. Il est possible d'écrire de nombreux 
petits programmes en GÆA, mais pour des 
applications lourdes comme un traitement 
de textes, une gestion de base de données, un 
logiciel d’analyse statistique ou un logiciel 
de PAO), il faut absolument un langage pro- 
fessionnel de type Pascal ou C. Il est possible 
d'écrire n'importe quel programme en Basic, 
mais comme ce langage n’est prévue que 
pour écrire des choses simples, ce serait un 
véritable enfer pour le programmeur qui fe- 
rait des bricolages monstrueux et mettrait 
énormément de temps pour mettre au point 
un programme peu fiable, Un programmeur 
amateur qui désire écrire un gros programme 
avec beaucoup de données gagnera du temps 
en apprenant un langage évolué du type 
Pascal plutôt que de commencer à écrire di- 
rectement son application en GEA Basic. La 
majeure partie des logiciels professionnels 
ST est programmée en langage C avec, éven- 
tuellement, quelques routines critiques écri- 
tes en Assembleur. 


Existe-t-il un logiciel permettant de 
décompiler un programme -GFA Basic 
(non protégé) afin de le lister pour ef- 
fectuer des corrections? S'agit-il d’un dés- 
assembleur? 

À notre connaissance, il n'existe aucun 


utilitaire permettant de générer un listing en 
GEA Basic à partir d’un programme compilé. 
C’est possible en théorie, mais cela géné- 
rerait un code difficile à relire puisque le 
programme compilé ne conserve ni le nom 
des procédures, ni celui des variables. De 
plus, comme le compilateur procède parfois 
à des optimisations de codes, certaines por- 
tions du programmes risquent de ne pas 
beaucoup ressembler au listing initial. Il est 
possible d'utiliser un désassembleur pour 
étudier un programme compilé mais le 
listing produit est en assembleur et non en 
GFA Basic. Cela peut être utile pour un 
programmeur en langage machine, mais pas 
pour un utilisateur du Basic. De plus, 
interrogés sur la question, certains spécia- 
listes de l’assembleur ont expliqué que le co- 
de machine généré par le compilateur du ST 
n'était pas très propre et donc difficilement 
réutilisable. 


J'ai tout particulièrement apprécié vos ar- 
ticles sur la création des jeux de rôle bien 
que l'éditeur de cartes style Ultima soit un 
peu trop complexe pour moi. Envi- 
sagez-vous d'écrire d’autres articles dans le 
même style, sur la création des jeux de 
rôle ou d’autres types de jeux? 

En effet, dans les numéros à venir, nous 
envisageons d'écrire des articles sur la ma- 
nière de programmer certains types de logi- 
ciels du commerce. Pour des raisons de place 
et de temps, ces articles ne seront pas ac- 
compagnés de programmes fonctionnels, 
mais présenteront diverses techniques que 
vous pourrez mettre en pratique dans vos 
propres programmes. Il y aura certainement 
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Le 


” d’autres articles sur les jeux de rôle. 


J'ai écrit un programme de gestion de 
fichiers et mes routines de sauvegarde 
disque fonctionnent mal. 

Qu'en pensez-vous? 

Voici le type même de question “que nous 
préférons ne pas recevoir. Non seulement, il 
nous est impossible de déboguer tous vos 
programmes par manque de temps, mais de 
plus la question est complètement flou. Si 
vous voulez poser des questions sur un pro- 
blème précis, donnez-nous le maximum 
d'informations sur ce qui devrait se passer et 
sur ce qui se passe réellement, ainsi qu’une 
partie de votre listing avec une explication 
détaillée sur son fonctionnement. 


J'ai écrit un logiciel de gestion de données 
en GFA Basic exploitant un fichier article 
d'environ 100 Ko. Lors d’un transfert de 
fichiers dans un Ram Disque (sur C: avec 
FLEXDISC), j'ai eu l’idée de modifier le 
programme pour la lecture sur C: et j'ai 
remarqué que le temps d’accès est divisé 
par 2 et plus. Existe-t-il un moyen pour 
charger ce fichier en mémoire, soit direc- 
tement, soit à l’aide d’un petit programme 
en GFA (et avec quelle instruction) avant 
d'exécuter mon programme principal? 

Les Ram Disques fonctionnement beaucoup 
plus vite que les disquettes et même que les 
disques durs, car ils ne possèdent aucune 
pièce mécanique ralentissant le transfert des 
données. Les seules choses que l’on puisse 
leur reprocher, c’est qu’ils prennent beau- 
coup de place mémoire et que leur contenu 
s’efface si l'alimentation du ST est coupée, à 
la différence des disquettes et des disques 
durs qui conservent en permanence leurs 
données. Vous pouvez copier vos fichiers 
dans votre Ram Disque en utilisant le bu- 
reau GEM, ou en utilisant une routine 
comme la procédure: 

copie fichier(nom1$,nom2$). 

Cette dernière n’est pas très rapide à l’exé- 
cution. 

Vous pouvez l'améliorer en effectuant non 
pas la copie octet par octet, mais bloc 
d’octets par bloc d’octets (voir listing 1). 


Je voudrais afficher constamment la va- 
leur d’une variable dans un coin de 
l'écran, mais l’affichage se fait sur chaque 
ligne et finit par détruire mon image. 
Que dois-je faire? 

C'est un difficulté simple à résoudre, mais 
qui pose toujours beaucoup de problèmes 


aux débutants. L'instruction PRINT permet 
d'afficher une information quelconque sur 
l'écran. L'instruction LOCATE précise à quelle 
ligne et à quelle colonne de l’écran s'effectue 


l'affichage. 


LOCATE 1,1 
PRINT var 


L'instruction PRINT n’affiche qüe le nombre 
de caractères nécessaire à l'affichage de la 
variable devant être affichée, Cela peut poser 
un problème si un nombre important est 
déjà affiché à l'écran. : 

Prenons le cas où le programme affiche la 
valeur 56 à un emplacement de l’écran où se 
trouve déjà écrit la valeur 34. Les caractères 
56 vont effacer les caractères 34. En re- 
vanche, si vous tentez d'afficher la valeur 56 
alors qu’il y a déjà sur l’écran la valeur 234, 
les deux premiers caractères de l’écran seront 
remplacés par 56, maïs le troisième restera. 
L'écran contiendra alors la valeur 564. Pour 
éviter cet effet, il faut effacer la portion de 
l'écran où doit se faire l'affichage. Cette 
opération est exécutable à l’aide de l’ins- 
truction SPACE$ qui génère une chaîne 
alphanumérique constituée 
d'espaces (voir listing 2). 


uniquement 


J'ai programmé une boucle FOR NEXT 
allant de 1 à 10 avec un pas de 2 et j'ai 
constaté que la variable i ne prend jamais 
la valeur 10. Est-ce un bogue du GFA 
Basic? Voici un programme qui prouve 
mes dires: 
FOR i=1 TO 10 STEP 2 

PRINT i 
NEXT i 
Les chiffres affichés sont: 1, 3, 5, 7,9 
Ce n’est pas vraiment un bogue, mais plutôt 
une conséquence de la manière dont le GFA 
Basic gère les boucles FOR NEXT. 
Lorsque le programme traite l’instruction 
NEXT, il incrémente la variable i et compare 
le résultat du calcul avec la valeur de fin de la 
boucle. Si la valeur de i est supérieure ou 
égale à la valeur de fin de boucle, la boucle 
FOR NEXT se termine. 
Dans le cas présent, la boucle s’arrête sur la 
valeur 9, car 9+2=11, et 11 est supérieure ou 
égale à 10. Ceci est assez subtile et peut 
occasionner des bogues difficiles à trouver. 
Il faut faire très attention chaque fois que 
vous utilisez des boucles FOR NEXT avec un 
pas d’incrémentation différent de 1. 
Remarque: si le pas d’incrémentation d’une 
boucle est différent de 1, la valeur de sortie 
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de la boucle n’est pas obligatoirement la 
valeur de fin de la boucle. 

Cela peut être une source d’erreurs à éviter, 
comme le montre l'exemple suivant: 


FOR i=1 TO 10 STEP 2 
PRINT i 

NEXT i 

PRINT "Valeur de sortie :/”;1 


0 NN & + 


Valeur de sortie : 11 

Quelle est la meilleure manière de 
rechercher une chaîne alphanumérique 
dans un tableau de caractères? 

La technique la plus simple pour rechercher 
le numéro de stockage d’une chaîne dans un 
tableau alphanumérique est d’utiliser une 
boucle FOR NEXT afin de tester une à une les 
différentes chaînes du tableau. Le program- 
me suivant recherche à quel emplacement 
du tableau t$() se trouve la chaîne 
«Melnibonné». La variable rep contient le 
résultat de la recherche, la valeur “+ 
indiquant que la recherche n’a pas:abouti 
(voir listing 3). 


Cette technique est simple à programmer, 
mais elle présente un gros inconvénient: 
même si la chaîne m$ se trouve au début du 
tableau, la routine explore la totalité de 
t$(), ce qui représente une perte de temps 
importante. Pour gagner du temps, il faut 
forcer la routine à cesser la recherche dés que 
la chaîne de recherche est trouvée. La ma- 
nière la plus simple est d’écrire la valeur de 
fin de boucle, c’est-à-dire 100, dans l’indice 
de boucle, autrement dit la variable i. La 
boucle s'arrêtera alors automatiquement 
(voir listing 4). 


La modification des indices de boucles est 
une technique dangereuse qu’il faut utiliser 
avec beaucoup de précaution. En effet, cela 
risque de créer des boucles sans fin qui ne 
s’arrêteront jamais comme le montre un peu 
caricaturalement l’exemple suivant: 


FOR i=1 TO 100 
i=50 
NEXT i 


Comment faire pour afficher sur l'écran 


une image Degas Elite, avec sa bonne 
palette de couleurs? 
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Cette question revient souvent dans le 
courrier des lecteurs et sur le serveur 3615 
Atari. Les images Degas sont stockées dans 
des fichiers binaires ayant la structure 
suivante: deux octets mémorisant la réso- 
lution de l’image (O=basse résolution; 
1=moyenne résolution; 2=haute résolution), 
32 octets pour la palette de couleurs de 
l’image et 32000 octets contenant l’image 
écran. La routine @charge degas (nom$) 
affiche sur l'écran du ST l’image Degas 
contenue dans le fichier nom$. Elle utilise 
l'instruction BGET pour charger en mémoire 
une partie du fichier. Si vous voulez plus de 
renseignement sur le fonctionnement de 
cette routine, reportez-vous à l’article sur les 
fichiers binaires paru dans Atari Magazine 
n°16 (voir listing 5). 


Quel est le rôle de l’instruction RESERVE 
et comment déterminer la valeur de son 
paramètre numérique? 

Le GFA Basic stocke le contenu de ces va- 
riables dans une zone mémoire particulière. 
L'instruction RESERVE définit la taille de 
cette zone, Certains programmes ont besoin 
de beaucoup de mémoire, alors que d’autres 
se contentent de peu. Si un programme 
manque de mémoire, il s’interrompt et 
affiche une boîte d’alerte avec le message 
«mémoire pleine». Le programme suivant 
vous permettra de visualiser ce message d’er- 
reur: 


RESERVE 0 

DIM t#(1000) 

PRINT "Test RESERVE" 
END 


Le tableau t#() contient 1001 nombres (de 
O à 1000), occupant chacun 4 octets. 
L'instruction RESERVE doit donc allouer un 
peu plus de 4000 octets au GÆA Basic pour 
que le programme puisse s’exécuter. Avec 
une valeur de 5000, vous prenez une bonne 


marge de sécurité. 


RESERVE 5000 

DIM t#%(1000) 

PRINT "Test RESERVE" 
END 


Pour déterminer la taille du paramètre de 
RESERVE, il faut tenir compte de toutes les 
variables du programme. Les variables qui 
prennent le plus de place sont les tableaux, 
les variables alphanumériques et les images. 
Une image écran stockée dans une variable 
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alphanumérique avec l'instruction SGET oc- 
cupe 32000 octets. Malgré son allocation 
mémoire de 50000 octets, le programme sui- 
vant ne fonctionne pas: voir listing 6. 


Le stockage des deux images écran dans les 
variables alphanumériques img1$ et img2$ 
nécessite 2*32000 octets, soit 64000 octets. Il 
faut donc réserver au moins 64000 octets 
pour qu’il fonctionne correctement (voir lis- 
ting 7). 


Le GFA Basic gère sa mémoire de manière 
dynamique, c’est-à-dire que la taille de la zo- 
ne mémoire utilisée varie au fur et à mesure 
des besoins du programme. Cela simplifie 
grandement la tâche du programmeur. 
Malheureusement, il est impossible de savoir 
à l’avance si le programme nécessite plus de 
mémoire qu'il ne lui en ait alloué avec 
l'instruction RESERVE Le programme de 
l'exemple précédent ne plante pas lors du 
stockage en mémoire de la première image, 
mais pendant le stockage de la seconde 
image étant donné qu’il manque une dou- 
zaine de Ko. Il faut donc calculer la taille 
minimale de la mémoire avec précision. Un 
programme simple qui contient peu de va- 
riables se contente d’une allocation mémoire 
de 50000 octets. 


Comment faire pour stocker plusieurs 
images en mémoire? 

L'instruction SGET permet de stocker une 
image écran dans une variable alphanumé- 
rique. Pour mémoriser plusieurs images en 
mémoire, il faut utiliser plusieurs variables 
alphanumériques ou un tableau alphanu- 
mérique. L'exemple suivant charge plusieurs 
images en mémoire et les affiche rapidement 
les unes à la suite des autres. L'instruction 
RESERVE alloue 200000 octets au GEA Basic, 
ce qui suffit très largement pour stocker les 3 
images et les variables du programme. La 
procédure @charge degas(nom$), qui affi- 
che une image Degas sur l'écran du ST, est 
décrite au début de cet article (voir listing 8). 


Attention: ce petit programme ne conserve 
pas les palettes de couleurs des différentes 
images. Pour que l'affichage soit correct, il 
faut donc que les images aient toutes la mê- 
me palette. 


J'ai écrit un petit programme de dessin 
avec la version 3.03 de l’interpréteur du 
GFA Basic, puis je l’ai compilé pour aller 
plus vite. La version compilée marche 


aussi bien que la version interprétée, mais 
au début du programme le curseur souris 
a la forme d’une abeille, Est-ce que mon 
compilateur fonctionne correctement? 
Rassurez-vous, votre compilateur fonctionne 
correctement, bien qu’il soit peut-être temps 
d’acheter la mise à jour du GFA Basic 3,5E. 
Ce qui se passe, c’est que les programmes 
écrits en GEA Basic ne changent pas la forme 
de la souris. Si vous lancez un programme à 
partir de l’interpréteur, il n’y a pas de pro- 
blème puisque la forme de la souris est déjà 
celle d’une flèche. En revanche, si vous cli- 
quez sur l’icône d’un programme GFA com- 
pilé, le bureau GEM change la souris en 
abeille pour montrer qu’il exécute une tâche 
et lance l’exécution du programme GFA. La 
forme de la souris reste toujours celle d’une 
abeille. Pour avoir un curseur souris en 
forme de flèche, il faut toujours commencer 
les programmes par un appel à l'instruction 
DEFMOUSE 0 qui change la forme de la souris 
en une flèche. La liste suivante vous montre 
les formes de souris disponibles dans la 
ROM du ST: 

0 : Flèche 

: Double parenthèse 

: Abeille 

: Main avec index pointé 

: Main ouverte 

: Réticule mince 

: Réticule épais 

: Réticule encadré 


NO OU À & D 


De la même manière que GEM, vos pro- 
grammes peuvent indiquer qu’ils exécutent 
une tâche en changeant la forme de la souris 
par une abeille. Pour ce faire, il faut utiliser 
DEFMOUSE deux fois comme le montre la 
routine suivante: voir listing 9. 


Le GFA basic possède de nombreuses 
structures de contrôle permettant de sim- 
plifier l'écriture des programmes, mais il y 
en a tellement que je m'y perds. Je ne par- 
viens pas à trouver la boucle appropriée à 
chaque problème. Comment choisir entre 
les boucles DO WHILE, DO UNTIL, 
LOOP WHILE, LOOP UNTIL, DO 
LOOP, REPEAT UNTIL et WHILE 
WEND? 

Les auteurs du GFA Basic ont voulu faire un 
«coup de zèle» en intégrant tous ces types de 
boucle dans leur langage, mais ils n’ont 
réussi qu’à embrouiller l'esprit des utilisa- 
teurs. Les développeurs professionnels qui 
programment toute la journée n’utilisent 
qu’un ou deux types de boucle. Toutes ces 
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boucles ont la même fonction, à savoir ré- 
péter une séquence d’instructions jusqu’à ce 
qu'une condition de sortie apparaisse. Elles 
diffèrent sur la manière et l'endroit dont la 
condition de sortie doit être testée. Afin de 
vous simplifier la vie, mutilisez que la 
boucle DO LO0P Cette dernière répète une 
séquence d'instructions tant que la 
condition de sortie présente dans 
l'instruction EXIT IF n'est pas réalisée. Le 
gros avantage de cette structure, c’est que le 
test de sortie de la boucle peut être placé 
n'importe où à l’intérieur de celle-ci. C’est 
très pratique pour de nombreuses ap- 
plications. Le programme suivant vous mon- 
tre un exemple pratique d’utilisation de la 
boucle DO LOOP La boucle s'exécute tant que 
la variable alphanumérique ne contient pas 
le caractère [E], c’est-à-dire tant que l’uti- 
lisateur ne presse pas sur la touche [E]. 


n=0 

DO 
INC n 
a$=INKEY$ 
EXIT IF a$="E" 

LOOP 


Instituteur, j'ai, dans ma classe, formé un 
atelier atariste (3 ordinateurs), et j'ai éga- 
lement, pour l’école, constitué un pro- 
gramme pour établir nos carnets de notes 
que je voudrais perfectionner. Voilà mon 
problème: je cherche, mais en vain, à sup- 
primer dans un fichier à accès direct le 
nom des enfants qui seraient partis en 
cours d'année. Pour ce faire, je copie 
d’abord le fichier A (par exemple) sur le 
fichier B. J'ai auparavant marqué d’un * 
les fichiers à supprimer dans A, et je cher- 
che par une boucle à recopier les fichiers 
non marqués d’un * Beaucoup d’heures 
passées: je commence à déprimer. Merci de 
me venir en aide, si c’est possible! Je joins 
à cette lettre la partie de mon programme 
qui me pose problème (voir listing 10). 


Plusieurs «choses» peuvent provoquer un 
mauvais fonctionnement de votre routine. 
D'une part, vous appelez la routine de fer- 
meture des fichiers à l’intérieur même de la 
boucle FOR NEXT, sans vous occuper d’ar- 
rêter la boucle. Cette dernière continue de 
s’exécuter et tente de lire des informations à 
partir d’un fichier fermé, provoquant le 
blocage du programme et l'apparition d’un 
message d'erreur. Etant donné que le pro- 
gramme ne connaît pas à l’avance le nombre 


d’enregistrements qu’il va lire dans le fichier, 
il ne faut pas utiliser une boucle FOR NEXT, 
mais une boucle DO LOOP dont la sortie 
serait contrôlée par une instruction EXIT IE 
D'autre part, vous gérez très mal les numé- 
ros des enregistrements du fichier B. Puisque 
certains élèves du fichier A disparaissent, les 
numéros de référence du fichier B sont dif- 
férents de ceux du premier fichier. Enfin, 
vous modifiez la valeur de la variable 1%, 
compteur de boucle un peu avant la fin de la 
boucle. Il faut éviter de modifier la valeur 
d’une variable indice de boucle à l’intérieur 
même de la boucle, sous peine de graves pro- 
blèmes. 

Voici une routine qui répond à vos deman- 
des, conçue autour d’une boucle DO LOOP et 
non d’une boucle FOR NEXT. La variable n% 
contient le compteur d'élèves du fichier A. 
La variable eleve% est le compteur d'élèves 
du fichier B. Lorsque le programme détecte 


la fin du fichier À, il recopie l'indicateur de . 


fin de fichier dans le fichier B et active la 
condition de sortie, c’est-à-dire qu’il écrit la 
valeur 1 dans la variable sorties. L'ins- 
truction EXIT IF indique au programme 
qu’il doit quitter la boucle DO LOOP pour 
exécuter les instructions situées après le LOOP 
C'est là que doivent être placées les ins- 
tructions de fermeture des fichiers à accès 
direct (voir listing 11). 


Une dernière remarque: dans votre listing, si 
le nom de l'élève commence par le caractère 
&, le programme utilise l'instruction GOTO 
pour sauter à la fin de la boucle FOR NEXT. 
C'est une mauvaise programmation. Il ne 
faut jamais utiliser linstruction GOTO, 
reliquat des premiers Basic. Cette maudite 
instruction ne sert qu'à créer des pro- 
grammes non fiables et illisibles. Aucun des 
programmes publiés dans Atari Magazine 
depuis plus de deux ans ne contient le 
moindre GOTO. Pour supprimer cette hor- 
reur, au lieu de tester si la première lettre du 
nom est le caractère &, il suffit de faire le 
contraire et donc de tester si la première let- 
tre du nom n’est pas le caractère &. Le même 
programme sans GOTO est plus simple et plus 
lisible, comme le montre l'exemple suivant: 
voir listing 12. 


Qu'est-ce que le mode Superviseur? 
Pourquoi l'instruction SPOKE travaille 
en mode Superviseur et pas POKE? 

Le microprocesseur 68000 qui équipe votre 
ST est un circuit électronique complexe 
capable de fonctionner dans deux modes 
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différents: le mode utilisateur et le mode 
superviseur. Un programme fonctionnant 
mode superviseur peut écrire à n’importe 
quel endroit de la mémoire alors qu’un 
programme écrit dans le mode utilisateur ne 
peut accéder à certaines zones mémoire. Ces 
zones mémoire réservées contiennent essen- 
tiellement des données système indis- 
pensables au bon fonctionnement du ST 
(état des timers, horloge interne, informa- 
tions sur le mode graphique en cours, etc.). 
Un programme utilisateur qui se plante ne 
peut donc pas altérer les variables système. 
La majeure partie des programmes Atari 
sont écrits en mode utilisateur. Seuls les uti- 
litaires très spécifiques comme des débo- 
gueurs ou des moniteurs disque travaillent 
en mode superviseur. L'instruction POKE 
permet d'écrire une valeur quelconque à une 
adresse mémoire. Etant une instruction 
normale du GÆA Basic, elle fonctionne en 
mode utilisateur et ne peut accéder à cer- 
taines zones de la mémoire et tout parti- 
culièrement aux 2048 premiers octets de la 
mémoire ST qui contiennent toutes la ma- 
jeure partie des variables système du ST. 
L'instruction SPOKE fonctionne exactement 
de la même manière que POKE, mais utilise le 
mode superviseur, On peut donc l’utiliser 
pour écrire des informations à n'importe 
quelle adresse mémoire, y compris dans les 
2048 premiers octets. Il est déconseillé de 
toucher au contenu de ces variables système. 
Toutes les modifications de l’état du ST 
doivent être effectuées par l'intermédiaire 
des fonctions BIOS et XBIOS prévues à cet 
effet. Sans cela, vos programmes risquent 
d’être dans l’impossibilité de fonctionner sur 
une nouvelle version de ROM. La plupart 
des problèmes de compatibilité entre STF et 
STE viennent de programmeurs qui ont 
négligé les spécifications de programmation 
Atari. 

Patrick Leclercq [ 
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| Listing 1 
| 
| L'OKKKKKKKKKKKKKEKREREKAKAARKEAXE EX 
® * COPIE D'UN FICHIER * 
| !!* noml$: Fichier _ copier * 
| ! * nom2$: Nom de la copie * 
LOKKKKRKXKXKAKRRREREREEXEREREREE 
PROCEDURE copie fichier(nom1$,nom2$) 
LOCAL taillex 
LOCAL n% 
! 
OPEN "i",#l,noml$  ! OUVERTURE FICHIER ORIGINE 
taille*=L0F(#1) ! LECTURE TAILLE FICHIER 
OPEN “o",#2,nom2$  ! OUVERTURE FICHIER COPIE 
| FOR n%=1 TO taille% ! DEBUT BOUCLE DE COPIE 
| 


V#=INP(#1) ! LECTURE D'UN OCTET 
OUT #2,v% } ECRITURE OCTET DANS COPIE 
NEXT n% ! FIN BOUCLE COPIE 
CLOSE #2 | FERMETURE FICHIER COPIE 
CLOSE #1 ! FERMETURE FICHIER ORIGINE 
RETURN 
listing 2 
FOR i=1 TO 10 
LOCATE 1,1 ! POSITIONNEMENT AFFICHAGE 
PRINT SPACE$(5) ! EFFACEMENT ZONE AFFICHAGE 
LOCATE 1,1 | POSITIONNEMENT AFFICHAGE 
PRINT i ! AFFICHAGE VARIABLE 
t=1*2 
NEXT 
Listing 3 
DIM t$(100) ! TABLEAU ALPHANUMERIQUE 


— 


REMPLISSAGE DU TABLEAU 
A PROGRAMMER VOUS-MEME 


m$="Melnibonné" ! CHAINE A CHERCHER 
rep=-1 ! INITIALISATION VARIABLE 
FOR i=1 TO 100 ! DEBUT BOUCLE DE RECHERCHE 
IF t$(i)=m$ | TEST SI PRESENCE CHAINE 
rep=i ! MEMORISATION POSITION CHAINE 
ENDIF | FIN TEST PRÉSENCE CHAINE 
NEXT ! FIN BOUCLE DE RECHERCHE 
' 
IF rep=-1 
PRINT "Recherche infructueuse" 
ELSE 
PRINT rep 
ENDIF 


Listing 4 


m$="Melnibonné" ! CHAINE A CHERCHER 
rep=-1 ! INITIALISATION VARIABLE 
FOR i=1 TO 100 DEBUT BOUCLE DE RECHERCHE 


— 


IF t$(i)=m$ ! TEST SI PRESENCE CHAINE 
rep=i ! MEMORISATION POSITION CHAINE 
i=100 ! VALEUR DE FIN DE LA BOUCLE 

ENDIF ! FIN TEST PRESENCE CHAINE 

NEXT i ! FIN BOUCLE DE RECHERCHE 
Listing 5 


LOXKKKKKKKKRRAKEKKRKRKKKRREEKRKRRKREKRERRARERRERE 


! * CHARGEMENT D'UNE IMAGE DEGAS ELITE * 
LOKKKKKKKRRRRRRRERRRRKRKRERERRKRRERERRKERERRE 
PROCEDURE charge degas (nom$) 
LOCAL pal$ 
pal$=SPACES (32) ! MEMOIRE PALETTE 
OPEN "I",#1,nom$ ! OUVERTURE FICHIER 
SEEK #1,2 ! SAUTER RESOLUTION 
BGET #1,VARPTR(pal$) ,32 ! CHARGEMENT PALETTE 
VOID XBIOS(6,L:VARPTR(pal$))! ACTIVATION PALETTE 
BGET #1,XBI0S(2),32000 ! CHARGEMENT IMAGE 


CLOSE #1 ! FERMETURE FICHIER 
RETURN 
Listing 6 
RESERVE 50000 ! RESERVATION MEMOIRE 
SGET img1$ ! LECTURE IMAGE 1 
SGET img2$ ! LECTURE IMAGE 2 
END ! FIN PROGRAMME 
Listing 7 
RESERVE 50000 ! RESERVATION MEMOIRE 
SGET img1$ ! LECTURE IMAGE 1 
SGET img2$ ! LECTURE IMAGE 2 
END ! FIN PROGRAMME 
Listing 8 


RESERVE 200000 
DIM img$(5) 


@charge degas("IMAGE1.PI1") 
SGET img$(1) 
@charge degas("IMAGE2.PI1") 
SGET img$(2) 
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@charge degas("IMAGE3.PI1") 
SGET img$(3) 


CLS [EFFACEMENT DE L'ECRAN 
VOID INP(2) IATTENTE PRÉSSION SUR CLAVIER 
FOR i=1 TO 3 IDEBUT BOUCLE AFFICHAGE 

SPUT  img$(i) !AFFICHAGE IMAGE I 


PAUSE 25 LATTENTE 1/2 SECONDE 
NEXT !FIN BOUCLE 
END 
Listing 9 


PROCEDURE exec_ travail 
DEFMOUSE 2 ! SOURIS EN FORME D'ABEILLE 
CA ! TRAITEMENT QUELCONQUE 
DEFMOUSE O ! SOURIS EN FORME DE FLECHE 
RETURN 


Listing 10 


! Ecrire dans fichier Octobre B ' (moins fiches 
supprimées) 
PROCEDURE ecrioct 
PUT #11,i% 
RETURN 
! Lire fichier A 
PROCEDURE liroct1 
GET #10,i% 
RETURN 
PROCEDURE supnoms 
FOR i%=1 TO n% 
@liroctl 
IF LEFT$(nom$,1)="*" 
GOTO loc 
ELSE 
IF LEFT$(nom$,1)="0" ! TEST FIN DE FICHIER 
GOSUB fermoct ! FERMER FICHIER 
ELSE 
@ecrioct 
ENDIF 
ENDIF 


1%=1#+1 
NEXT i% 
RETURN 
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Listing 11 


! OUVERTURE DES FICHIERS 

! A ACCES DIRECTS 

sortie#=0 ! CONDITION DE SORTIE BOUCLE 

n#=1l . ! COMPTEUR D'ELEVES DANS FICHIER A 
eleve#=1 ! COMPTEUR D'ELEVES DANS FICHIER B 
DO 


GET #11,n% ! LECTURE ELEVE 
INC n% ! GESTION COMPTEUR FICHIER A 


IF LEFT$(nom$,1)="0" ! TEST SI FIN FICHIER 


PUT #11,eleve* ! ECRIRE FIN FICHIER 
sortie#=1 ! ACTIVER SORTIE BOUCLE 
ENDIF 


EXIT IF sortie#=1 ! TEST SI SORTIE BOUCLE 
IF LEFT$(nom$,1)<>"*" ! TEST SI ELEVE À ELIMINER 
PUT #11,eleve* | ECRIRE ELEVE FICHIER B 


INC eleve ! GESTION COMPTEUR FICHIER B 
ENDIF LOOP 


! FERMETURE DES FICHIERS 
! A ACCES DIRECTS 


Listing 12 


LOKRKKKRRRKERKRRKRAXRRKRX 

!* ANE PAS FAIRE * 

! x AVEC GOTO x 

D OKXKKKKKKKKKKKREKRKKEHEEX 

IF LEFT$(nom$,1)="*" 
GOTO loc: 

ELSE 
IF LEFT$(nom$,1)="0" 
ENDIF 

ENDIF 

loc: 

L'KXKAKAKAAKRRRARREX 

"+ AFAIRE * 

! x SANS GOTO * 

LOKRKKAKKRARKÉARKRKÉ 

IF LEFT$(nom$,1)<>"*" 
IF LEFT$(nom$,1)="0" 
ENDIF 

ENDIF 
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EPPNMerT es 


PREMIERS PAS EN OMIKRON 
Les fichiers (Il) 





Explorons toujours'plus avant le domaine des fichiers en Omikron, 
et voyons si l'on peut trouver une solution qui allierait la rapidité 
du fichier à accès direct et la souplesse du fichier séquentiel. 





EN ous avons vu que le fichier séquentiel était particulièrement 
simple à programmer mais peu exploitable pour les gros fi- 
chiers compte tenu de sa lenteur, un enregistrement ne pouvant être 
lu directement. A l'inverse, le fichier à accès direct comble les in- 
convénients du fichier séquentiel en terme de rapidité, mais suppose 
que l’on se souvienne des numéros d'enregistrement. En fait, l'in- 
convénient majeur du fichier à accès direct c’est le numéro d’enre- 
gistrement. Par conséquent, il faut imaginer un système pour que 
ces indices soient mémorisés automatiquement. C'est le fichier 
séquentiel indexé. 


Qu'est-ce qu'un index? 


Lorsque l’on recherche une fiche unique, on base sa recherche sur un 
minimum d'informations. Prenons un exemple simple. Supposons 
que vous créez un fichier client comportant les champs suivants: 
nom, prénom, adresse, téléphone, etc. Si vous désirez obtenir des 
renseignements sur le client Dupont, vous entrez son nom et le pro- 
gramme vous affiche les renseignements le concernant. Cet exemple 
vous montre bien que, pour ce type de recherche, vous êtes obligé de 
connaître au moins le nom de la personne. Il est donc judicieux d’in- 
dexer votre fichier sur le champ «Nom». Cela veut dire en clair que 
vous allez créer, en plus de votre fichier principal, un fichier secon- 
daire, un index, dans lequel figureront les noms de votre fichier prin- 
cipal et les numéros d’enregistrement correspondants. Cet index sera 
un fichier séquentiel à deux champs: le nom et l'indice d’enregistre- 
ment. Par cette méthode, en cherchant la fiche de Dupont, le pro- 
gramme regardera d’abord dans l’index si le nom existe, et s’il le 
trouve, en obtiendra le numéro d’enregistrement pour obtenir le res- 
te des renseignements dans le fichier principal. 

La question qui peut se poser est: comment cela peut-il aller plus vi- 
te, puisque cela oblige à consulter deux fichiers au lieu d’un? La lec- 
ture séquentielle d’un fichier de un ou deux champs ir toujours 
plus vite que la lecture séquentielle d’un gros fichier à accès direct 
comportant une dizaine de champs (voire plus si vous décidez de fai- 
re un fichier vraiment complet). Autrement dit, cela prend plus de 


temps de scruter directement le fichier principal, que de chercher 
l'indice d’enregistrement dans l'index, puis de s’en servir pour lire la 
fiche convoitée dans le fichier principal. 


Comment gérer le fichier d’index? 


Il existe plusieurs méthodes qui dépendent de vos besoins personnels 
et de votre configuration matérielle: 

- il est tout à fait concevable de créer plusieurs fichiers d’index afin 
d’étendre la souplesse de recherche. Exemple: un index «Nom» et un 
index «Téléphone». Si vous possédez un disque dur, cela ne pose pas 
trop de problèmes de multiplier les fichiers, 

- le fichier d’index peut très bien ne contenir qu’un seul champ: lin- 
dex lui-même. Dans ce cas, l'indice d’enregistrement est implicite- 
ment le numéro d’ordre dans lequel la fiche a été enregistrée. Cepen- 
dant, cette méthode empêche de se servir de l’index comme d’un fi- 
chier à part entière. En effet, il peut parfois être utile de trier l’in- 
dex (donc de modifier l’ordre de départ) et de le lister, 

- si vous estimez connaître le nombre maximum de fiches que vous 
atteindrez jamais, vous pouvez toujours dimensionner un tableau 
dans lequel vous chargerez l'index en début de programme. De ce 
fait, la recherche de l'indice se fera en mémoire, ce qui est pratique- 
ment instantané. Cette méthode suppose que vous gérez le tableau 
en même temps que le fichier d’index en cas d’ajout de fiches. 


Quelques exemples 


Commençons par adapter le listing d'exploitation du fichier à accès 
direct paru dans Atari Magazine n°36, et ajoutons-lui une gestion 
d’index. 


E$="X"+ CHR$(27) 

OPEN "R",1,"A:\ESSAI.DAT",48 

OPEN "0",2,"A:\INDEX.DAT" 

FIELD 1,20 AS N_ $,20 AS P_$,2 AS À $,6 AS S $ 
CLS :Ind#= LOF(1)+1 


er 
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PRINT "Arrêt de la saisie : 
REPEAT 

PRINT @(2,2);"Nombre d'enreg. 
N$="":p$="".A$="":S$="" 

INPUT @(5,5):"Nom : ";N$ USING "aU"+E$,R,20 

IF (R AND $FF)=27 THEN EXIT 

WRITE #2,N$,Ind# 

INPUT @(6,2);"Prénom : ";P$ USING "a+-",R,20 
INPUT @(7,5);"Age : “;A$ USING "O",R,3 

INPUT @(8,3);"Solde : ";S$ USING "O+.+,C,.",R, 10 
RSET N_$=N$: RSET P_$=P$ 

A_$= MKI$( VAL(A$)):S $= MKS$( VAL(S$)) 

PUT 1,1Ind% 

Ind%=Ind%+1 
UNTIL N$="" 
CLOSE 2 

PRINT @(11,2);"Une touche pour lire le fichier..." 
REPEAT UNTIL LEN( INKEY$ ) 


[ESCF* 


245 LOF CE) 


CLS # 
PRINT "Arrêt de la lecture : [ESC]." 
REPEAT 
N$="" 
INPUT @(2,1);"Nom : ";N$ USING "aU"+E$,R,20 
IF (R AND $FF)=27 THEN EXIT 
OPEN “I",2,"A:\INDEX.DAT" 
Flag%=0 
WHILE NOT EOF(2) 
INPUT #2,Nom$, Ind% 
IF N$=Nom$ THEN Flag%=-1: EXIT 
WEND 
IF Flag% THEN 
GET 1,Ind# 
PRINT @(4,1); CHR$(27);"K'; 
PRINT N$,P $, CVI(A $), CVS(S $) 
ELSE 
PRINT @(0,0); CHR$(7); 
ENDIF 
CLOSE 2 
UNTIL N$="" 


CLS : CLOSE : END 


On s'aperçoit que la recherche est beaucoup plus rapide. Mais pour 
en avoir le cœur net, reprenons le test comparatif de notre première 
rubrique (Atari Magazine n°35) consacrée aux fichiers qui consistait 
À écrire un fichier de mille enregistrements et de rechercher le der- 
nier. Rappelons qu’avec un fichier séquentiel, il nous a fallu, pour li- 
re la dernière fiche, plus de douze secondes sur disquette et plus de 
cinq secondes sur disque dur. 


CLS : PRINT CHR$(27);"f" 

PRINT “Insérez une disquette A:" 
PRINT "et appuyez sur une touche..." 
REPEAT UNTIL LEN( INKEY$ ) 


OPEN “O",1,"A:\INDEX.DAT" 
OPEN "R",2,"A:\ESSAI.DAT",42 
FIELD 2,20 AS N $,20 AS P $,2 AS S $ 
CLS : PRINT : PRINT "Ecriture :" 
FOR 1%=1 TO 999 

N$="":P$= CHR$(65+ RND(24)) 

FOR U%=5 TO RND(5)+10 

N$=N$+ CHR$(65+ RND(24)) 
P$=P$+ CHR$(97+ RND(24)) 

NEXT U% 

S#%= RND(10000) 

WRITE #1,N$ 

LSET N $=N$: LSET P $-P$:S $= MKI$(S#) 

PUT 2,1%: PRINT @(1,10);1% 
NEXT 1% 
WRITE #1,"ATARI" 
LSET N $="ATARI": LSET P $="Magazine" 
S_$= MKI$(1992) 
PUT 2,1000 
CLOSE 1 
PRINT : PRINT "OK ! Appuyez sur une touche" 
PRINT "pour commencer la recherche..." 
REPEAT UNTIL LEN( INKEY$ ) 
Ti= TIMER 
OPEN “I",1,"A:\INDEX.DAT" 
1%=1 ! 
WHILE NOT EOF(1) 

INPUT #1,N$ 

IF N$="ATARI" THEN EXIT TO Ok 

1%=1%+1 
WEND 
PRINT : PRINT "Non trouvée ! Fin de fichier..." 
CLOSE : END 
-0k 
GET 2,1% 
PRINT : PRINT "Fiche : "3N $;P $; CVI(S $) 
PRINT "trouvée en";( TIMER -Ti)/200;" sec." 
PRINT "Taille du fichier :"; LOF(2)*42;" octets." 
CLOSE 


Cette fois, cela devient honorable puisque sur disquette la dernière 
fiche est trouvée en environ six secondes, et sur disque dur en un 
peu plus de deux secondes. Nous avons divisé le temps de recherche 
par deux. Fort de cet avantage, nous allons encore optimiser nos 
temps d’accès en cherchant l’index en mémoire... 


CLS : PRINT CHR$(27);"f" 
DIM T$(1000) 
Ti= TIMER 
PRINT "Chargement de l'index..."; 
OPEN "I",1,"A:\INDEX.DAT" 
1%=1 
WHILE NOT EOF(1) 
INPUT #1,1$(1%) 
1%=1%+1 


D LB ND CL A NE TA EE EEE 
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WEND 
CLOSE 1 
PRINT " en";( TIMER -Ti)/200;" sec." 
OPEN "R",2,"A:\ESSAI.DAT",42 
FIELD 2,20 AS N_$,20 AS P_$,2 AS S $ 
PRINT : PRINT "OK ! Appuyez sur une touche" 
PRINT "pour commencer la recherche..." 
REPEAT UNTIL LEN( INKEY$ ) 
Ti= TIMER 
FOR I%=1 TO 1000 
IF T$(I%)="ATARI" THEN EXIT TO Ok 
NEXT 1% 
PRINT : PRINT "Non trouvée ! Fin de fichier..." 
CLOSE : END 
-0k 
GET 2,1% 
PRINT : PRINT "Fiche : "3N $;P $; CVI(S $) 
PRINT "trouvée en";( TIMER -Ti)/200;" sec." 
PRINT "Taille du fichier :"; LOF(2)*42;" octets." 
CLOSE 


A ce niveau, cela devient très intéressant puisque sur disquette le der- 
nier enregistrement est lu en moins de deux secondes, et sur disque 
dur en mois de cinq dixièmes de seconde. C’est vrai qu’il faut comp- 
ter le temps de chargement de l’index au début du programme, mais 
celui-ci est chargé une fois pour toutes, et son temps de chargement 
se noie très largement dans celui du programme. 


Les mauvaises surprises 


Essayons maintenant de voir quels peuvent être les messages d’erreur 
liés aux fichiers. Commençons par les plus simples à corriger: 

Bad file number: un numéro d'identification de fichier n’est pas com- 
pris entre 1 et 16. 

File already open: vous avez cherché à ouvrir un fichier alors qu’il 
était déjà ouvert, c’est-à-dire qu’il n’a pas été fermé auparavant par 
l'instruction CLOSE 

File not open: vus avez cherché à écrire ou lire des données dans un 
fichier qui n’a pas été ouvert par l’instruction OPEN. 

Field overflowr: la taille des données contenues dans les champs d’un 
fichier à accès direct dépasse la capacité mémoire du tampon de 
l'instruction FIELD. Votre fichier doit être énorme! Dans ce cas, uti- 
lisez plusieurs fichiers parallèles. 

Bad record number: le programme a tenté de lire dans un fichier à 
accès direct un enregistrement dont le numéro dépasse la capacité du 
GEMDOS. 

Bad file name: le nom du fichier que vous avez tenté d'ouvrir 
possède des caractères interdits (codes VT-52 par exemple). 

File not found ou Path not found: le fichier que vous avez tenté d’ou- 
vrir n'existe pas, ou bien le chemin d’accès précisé n’existe pas. 


Passons aux messages d'erreurs plus difficiles à interpréter: 

Input past end: ce message d’erreur surgit lorsque le programme tente 
de lire une donnée au-delà de la fin d’un fichier séquentiel. Bien sûr, 
cela peut provenir tout simplement d’une étourderie comme oublier 


de tester la fin du fichier. En général, on procède de l’une des deux 
manières suivantes: 
WHILE NOT EOF(N) 
Lecture des données... 
WEND 


ou 


REPEAT 
IF EOF(N) THEN EXIT 
Lecture des données... 
UNTIL 0 


Attention : la boucle REPEAT ... (lecture) ... UNTIL EOF(N) 
n'est pas adaptée, car Le test de la condition de fin de fichier est effec- 
tué après la lecture. Par conséquent, le message d’erreur peut appa- 
raître, 

Mais ce n’est pas aussi simple qu’il y paraît. Cette erreur est aussi en- 
gendrée par d’autres phénomènes: 

- il peut s'agir d’une mauvaise lecture par rapport à la méthode 
d'écriture employée. Exemple: écrire des enregistrements sur un 
champ et vouloir les lire sur plusieurs, 

- il peut s'agir de caractères spéciaux tels que les codes ASCII 13, 44 
ou 26 sauvés par erreur dans un enregistrement et qui perturbent la 
lecture des données. 


Bad file mode: le type d'ouverture du fichier ne correspond pas à l’ac- 
tion entreprise. Par exemple: tenter d’écrire dans un fichier séquen- 
tiel ouvert en lecture par OPEN "1". Il s’agit en général d’une confu- 
sion dans les numéros d'identification des fichiers, lorsque plusieurs 
fichiers sont ouverts simultanément. Utilisez l'option "LIST TO- 
KEN...." de l'éditeur afin de lister les lignes où se trouvent l’instruc- 
tion OPEN. 

Il existe un troisième type de fichier, le fichier «Utilisateur» ouvert 
par OPEN "U", très proche de son modèle fondamental du GEM- 
DOS "Fopen". 

Pierre-Jean Goulier = 












Téléchargez 

les listings du 

magazine 
sur le 


3615 ATARI 
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ANSE AVI AR ® IN 


GESTION DOCUMENTAIRE 


Faites-le vous même 





La meilleur manière d'apprendre à programmer, c'est d'écrire un 
programme complet. C'est pourquoi nous vous donnons 
aujourd'hui la description d'un programme intéressant que vous 
pourrez réaliser par vous-mêmes. 





Logiciel de gestion 
documentaire? 


Un logiciel de gestion documentaire est un 
programme qui permet de rechercher des 
documents ou des articles de journaux 
d’après un certain nombre de critères. 

Par exemple, un logiciel de gestion docu- 
mentaire est capable d’indiquer tous les ar- 
ticles d’Atari Magazine traitant des traite- 
ments de texte et du graphisme. C’est un 
programme pouvant être très utile pour le 
possesseur d’une grande quantité de jour- 
naux. Une bibliothèque peut l'utiliser pour 
gérer ces revues et ces différents livres. Dans 
ce dernier cas, il peut être lié avec le système 
d’abonnement. 


Définition d’une 
fiche article type 


Les fiches contenant la description des ar- 
ticles peuvent contenir un titre, une référen- 
ce de journal, le nom de l’auteur, une date de 
parution, un texte de présentation et les cri- 
tères de recherche. Si la bibliothèque est im- 
portante, vous pouvez y rajouter le numéro 
de l'armoire ou du rayon où est stocke le 
journal. Les critères de recherches sont des 
mots résumant le contenu du programme. 
Par exemple, un article sur l'affichage de 
sprites en Gfa Basic parus dans Atari Maga- 
zine n°30 doit avoir les critères PROGRAMMA- 
TION, GFA BASIC, GRAPHSIME et SPRITES. 
Rien ne vous empêche de rajouter d’autres 
informations sur les articles, comme leurs 


» 


numéros de pages, une note ou une apprécia- 
tion personnelle, etc... 

La manière dont les données seront stockées 
dans la mémoire dépend du langage de pro- 
grammation, mais on peut remarquer que 
certaines données sont répétitives, comme 
les titres des journaux et le nom des auteurs. 
Plutôt que de les garder à chaque fois en mé- 
moire en perdant pas mal de place mémoire, 
il est préférable de leurs donner un numéro 
de référence correspondant à une liste de 
noms conservé quelque part en mémoire, 
Par exemple, Atari Magazine pourrait avoir 
le numéro 1, Cassus Belli le numéro 2, SVM 
le numéro 3, etc. Avec ce système, le codage 
du journal et de l’auteur d’un article ne 
prend plus que 3 ou 4 octets à la place d’une 
cinquantaine. L'économie de mémoire est 
appréciable! 


Etudes des 
fonctionnalités 


L'utilisateur d’un logiciel de gestion docu- 
mentaire simple doit pouvoir ajouter des ar- 
ticles à la base de données et rechercher un 
article à partir d’une liste de critères. Le ré- 
sultat de la recherche doit être affiché sur 
l'écran ou imprimé. Toutes ces opérations 
doivent se faire simplement, avec une inter- 
face fonctionnant à la souris. 


Création d’une 
fiche article 


Pour créer une nouvelle fiche article, l’utili- 
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sateur doit saisir tous les renseignements 
qu’il connaît sur l’article. Le système le plus 
simple est d'utiliser l'instruction INPUT pour 
saisir individuellement chaque information. 
C'est le procédé le plus simple à program- 
mer, mais pas le plus simple à utiliser! ‘Cer- 
taines informations peuvent déjà être connus 
du programme, comme le titre du journal, le 
nom de l’auteur et certains critères de re- 
cherche. 

Dans ce cas, l'utilisateur doit avoir la possibi- 
lité de sélectionner l’une des informations 
déjà présente en mémoire sans la re-saisir. 
L'image accompagnant cet article vous mon- 
tre une disposition possible pour l'écran de 
saisie. 

La saisie d’un élément de l’article se fait en 
cliquant dessus. Par exemple, pour entrer le 
titre de l’article, il faut cliquer sur la zone 
TITRE, puis taper directement le texte. En 
cliquant sur un nom de journal déjà présent 
sur l'écran, on modifie le nom du journal de 
l’article en cours de saisie. Cela fonctionne 
de la même manière pour les noms des au- 
teurs et pour les critères de recherches. 
Lorsque l’utilisateur saisie un titre de jour- 
nal, un nom d’auteur ou un critère de re- 
cherche inconnu du programme, celui-ci 
l’ajoute à ses listes et l'affiche sur l’écran. Les 
flèches hauts et bas des différentes fenêtres 
permettent d'afficher la totalité des informa- 
tions possédés par le programme. 

Il est en effet peu probable que la base de 
donnée ne contiennent que 4 magazines dif- 
férents ou seulement 4 auteurs, sans parler 
des nombreux critères de recherches possi 
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PROGRAMMATION UTILITAIRES DOS 
LNADOCS contient une documentation complète sur FM SHELL texte qui simplifie l'utilisation 
le langage LNA de la société Lexiel 21624 arc du Portfolio 7680 n.c 
PBAS45 v. 4.5 du PBasic, interpréteur Basic PSTAT utilitaire qui affiche différentes 
qui possède un jeu d'instructions et informations sur l'état du Portfolio (état 
gère le graphisme du Portfolio du clavier, de l'écran, type de Beecard, 
(PLOT, LINE, etc.) 164273 arc horloge, etc.) 2441 arc 
PRGCALC calculatrice pour programmeur permettant PTOOL ensemble de 9 utilitaires. Le programme 
de travailler en binaire, octal Portdisk donne des informations sur 
(base 8), décimal et hexadécimal 11531 arc les disques 27023 arc 
SCI interpréteur C qui permet de tester un PUTILS utilitaires pour Portfolio. Le programme 
programme € de la même manière qu'un SDIR affiche la liste des fichiers 
programme Basic 127293 arc d'un disque 9538 arc 
TBASIC mini basic limité à 2795 octéts qui ne SM utilitaire DOS permettant de choisir le 
comprend que les ordres donnés en mode écran: Static, Tracked ou normal 128 n.c 
majuscules et ne peut gérer que 26 UPDATE utilitaire de correction des bugs du 
variables 37903 arc Portfolio (date de mise en service: 
UNIFORTH adaptation du Forth Uniforth 17/12/90) 1664 n.c 
Professionnal. Il supporte le standard UPDATE14 programme de mise à jour qui permet de 
Forth-83 7: 107190 arc corriger les quelques bugs mineurs du 
système d'exploitation. I1 doit être 
GRAPHISME exécuté à chaque réinitialisation du 
PGCMP1 contient le programme PGCOMP permettant Portfolio ou lancé à partir du fichier 
de convertir des fichiers PGF en AUTOEXEC. BAT 1536 n.c 
fichier PGC 8240 arc 
PGSPEC explications complètes sur la structure DIVERS 
du format graphique PGC (Portfolio CBASE permet de saisir des informations selon à 
Graphic Compressed) 3293 arc un formulaire défini à l'avance (utile 
PGSH21 v. 2.1 du programme PGSHOH. pour une enquête ou un sondage) 26466 arc 
Cet utilitaire permet de visualiser des PORTFO gère sur ST les fichiers d'adresses et, 
images sur l'écran du Portfolio et de numéros de téléphone au format du 
reconnaît les formats graphiques PGF Portfolio 33536 arc 
et PGC 8027 arc PTONE utilitaire musicale transformant! le 
SKETCH programme de dessin du type «écran Portfolio en mini synthétiseur. Logiciel 
magique». Les curseurs permettent de prévu pour un clavier QWERTY 7807 n.c 
tracer des traits dans n'importe quelle 
direction 6246 arc 
SPRITE démonstration des capacités graphiques du 
Portfolio. Une trentaine de petits sprites 
se déplacent rapidement et rebondissent 
sur les bords de l'écran!!! 1488 n.c 
COMMUNICATION 
EMMASP utilitaire de capture de messages sur 
le courrier électronique US 24648 arc PTE TT PR . 
PRTFTERM programme de terminal ASCII qui permet Définition des abréviations 
la communication série et de transférer 
des programmes sur PC plus rapidement 
qu'avec l'interface parallèle 15198 arc à dessus } pour % décompacter. i 
TMXM.DOC documentation anglaise du programme arc: éavec ARC. 
TMXM. COM 2737 n.c ” Utilisez ARCXTTP f pour le décompacter. 
TMXM2.D0C documentation anglaise du programme ar: fichier compacté avec Archive. TA 
TMXM2.. COM 4919 n.c - Utilisez ARCHIVETTP pour le décompacter. 
TMXM2 permet de disposer des protocoles Xmodem c14: fichier compacté avec Compil. EE 
et Ymodem sur Portfolio 2432 n.c - À décompacter avec le programmme COMPH4 PRG. k 
TMXM permet de disposer des protocoles Xmodem deg: image au format Degas compressé .PC? +4 
et Ymodem sur le Portfolio 2048 n.c 4: image A format Tiny. 
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